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ATITLE ‘SMGSDISPLA S = Virtual Display Linkages’ 
MODULE SMGSDISPLAY 
iD "1-096" ! File: SMGDISLIN.B32 Edit: STAN1096 
BEGIN 


ASSESSES ESSLSS ESET ESET STS TT TT TT TC ec ccc eT ccc cece ccc icici ii icc ic citi iia i iii ite) 


'* COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 

i® DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 

!* ALL RIGHTS RESERVED. 

:* THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
D H THE TERMS OF SUCH LICENSE AND WITH THE 

COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER 

BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 

: TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 

!® TRANSFERRED. 


it THE INFORMATION IN THIS SOFTWARE IS SUBJ 


CT TO CHANGE WITHOUT NOTICE 
SHOULD I 


E 
LD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


‘# AN 
!® CORPORATION. 


it DIGITAL ASSUMES NO RESPONS 


BILITY FOR THE USE OR RELIABILITY OF ITS 
!* SOFTWARE ON EQUIPMENT WHICH IS 


I 
H NOT SUPPLIED BY DIGITAL. 


a@eenennenenenneeeneeenennnennnen 


SRR 
! 


'e¢ 
FACILITY: Screen Management 
ABSTRACT: 
The procedures in this module are conerned — with the. 
allocation/deallocation of virtual displays, and with the pasting/ 


woes Sa of these virtual displays to pasteboards. The are not 
concerned with their contents or output. 


5 For the procedures which maintain and update the contents of 
virtual displays, see the module SMG$DISPLAY_CHANGE. 


f For the procedures which ectyel hy do output from these virtual 
displays, see the module SMGSDISPLAY_OUTPUT. 


For precocyres that support input operations, see the module 
SMGSDISPLAY_INPUT. 


ENVIRONMENT: User mode, Shared Library routines. 

AUTHOR: R. Reichert, CREATION DATE: 26-Jan-1983 

MODIFIED BY: 

1-096 - ply allow paste or unpaste if display is batched. 


-Jun- ° 
1-095 = Use symbolic names SMGSK_TOP, etc. in SMGSLABEL_BORDER. 
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1-096 14-Sep-1984 SMGRTLeS 
c=: 0058 1! Change error ayase es by SMGSSET_DISPLAY_SCROLLING_REGION. 

: 89 8089 4 | STAN S-Jun-1984. 

; & 0060 1 ! 1-094 = Fix bug re ha occluding other borders. STAN rong 19%. 

; 6) Boe: : 1-001 = Original. Skeleton for future code. RKR 26-Jan-198 


ss-32 V4.0 
CISMGDISLIN. 3 231 
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1-096 Declarations ste ° 12280 8-138¢ 13:69:48 SMGRTL. RCISMGDISLIN.B 231 ni (2) 

; 0063 1 XSBITL ‘Declarations’ 3 
; & 0064 1! : 
; & 0065 1 ! SWITCHES: : 
; oOo Baye 1! $ 
; 0067 1 $ 
; 9 0068 1! Fs 
H 0 0069 1 ! LINKAGES: 3 
Sana 0070 1! : 
con 0071 1! NONE 3 
Sees OOre es : 
: 00735 1 ! INCLUDE FILES : 
; 0074 1! : 
; Tf 0075 1 3 
sae 0076 1 REQUIRE 'RTLIN:SMGPROLOG'; ! defines psects, macros, tcb, ° 
: re Bide : ! web, & terminal symbols ; 
: 80 0156 1 REQUIRE 'RTLIN:STRLNK’; ! Linkages to string JSB : 
; 6 «(6S} 0341 1 : 
; @ tet 1! : 
: 83 0345 1 ! TABLE OF CONTENTS: : 
; & 0344 1! 3 
; 8S 0345 1 3 
; 86 0346 1 FORWARD ROUTINE : 
.. oF 0347 1 : 
; 688 0348 1 ! Public entry points 3 
; 0349 1 3 
; 0350 1 SMGSCHANGE _PBD_CHARACTERISTICS, ! Change characteristics of ; 
; 4 ttt 1 ! physical terminal : 
> 93 0335 1 SMGSCHANGE_VIRTUAL_DISPLAY, } Change characteristics of : 
; oe Bsee . ! existing virtual display : 
: 96 0356 1 SMGSCHECK_FOR_OCCLUSION, ' Check to see if a virtual : 
; 44 STE4 : ! display is occiuded. : 
: 2 0359 1 SMGSCREATE_PASTEBOARD, ! Create pasteboard : 
: 135 Bees ! SMGSCREATE_VIRTUAL_DISPLAY, ! Create virtual display 2 
: 103 0368 1 SMGSDELETE_PASTEBOARD, ! Get rid of pasteboard, terminate ; 
3 ine beee : ! all operations on this display ; 
; 196 b306 ' SMGSDELETE_VIRTUAL_DISPLAY, ! Delete virtual display : 
; 108 0368 1 SMGSGET_DISPLAY_ATTR, ! Return current attributes of F 
; 109 0369 1 ! virtual display 3 
: 110 0370 1 3 
3 13) O37) ' SMGSLABEL_BORDER, ' Supply label for border : 
: 118 0398 1 SMGSMOVE_VIRTUAL_DISPLAY, ! Move position of virtual ; 
: B+ Bae : ' display on pasteboard : 
: 116 0576 | SMGSPASTE_VIRTUAL_DISPLAY, ' Paste virtual display to ; 
: 4 B05 ’ ' pasteboard : 
: 119 0379 1 SMGSPOP_VIRTUAL_DISPLAY, ' Pop off (and delete) all ; 
s 120 0380 1 ! virtual displays from given 3 


Locate PP which matches a 
DCB and a PBCB. 


Inner-most Paste Virtual 
Display routine. 


SMGSSLOCATE_PP, 


SMGSSPASTE_VIRTUAL_DISPLAY, 


SMGSSRECALC_PP_FIELDS, Recalculate pasting packet 
fields after virtual display 
batching ceases. : 
Inner-most Unpaste Virtual 


Display routine. 


err er er ee) 


SMGSSUNPASTE_VIRTUAL_DISPLAY; 


routines. 
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1-096 Declarations ; . 12=868=1 382 99:89; SMGRTL.SRCISMGDISLIN.B a3 ” (2) 
: 121 0381 1 ! to top of pasting stack. 
139 O38 1 hice pnb 
3; O38 1 SMGSREPASTE_VIRTUAL_DISPLAY, ' Repaste virtual display to 
: : : 8 Be : ! pasteboard in new position 
: 126 O36 1 SMGSRESTORE_PHYSICAL_SCREEN, ! Restore screen to where it 
3 ter 0387 1 ' was after non-SMG user 
; 128 tt} 1 ! munged it. 
; 129 0389 1 
3; ia 0390 1 SMGSSAVE_PHYSICAL_SCREEN, ' Save phyeteet screen before 
: 13) O38, : ! non=SMG user mungs its up. 
: 138 g308 SMGSSET_DISPLAY_SCROLL_REGION, ! Set the scrolling region in 
: 13 b33¢ : ! a virtual display 
: 136 0396 1 SMGSUNPASTE_VIRTUAL_DISPLAY, ! Unpaste virtual display from 
3 i H4 $344 : ! pasteboard. 
: iz, 8738 ; ! Private entry points 
> 147 0401 1 SMG$$CALC_PASTE_TRANSF, ' Calculate pasting 
5 166 beO8 : ! transformation constants. 
: 144 0404 1 SMGS$CHECK_OCCLUSION, ! Check current complement of 
> «6145 0405 1 ! pasted virtual displays to 
: re ots] : ! see who is occluded. 
: 148 0408 1 SMGSSCHECK_OCCLUSION_FIRST, ! Check occlusion caused by 
3 133 84 : ! highest pasted virtual display. 
; 131 aut SMGSSCREATE_PASTEBOARD, ' Create pasteboard 
: 153 413 1 SMGSSCREATE_VIRTUAL_DISPLAY, ' Inner-most Create Virtual 
s 138 413 . ! Display routine 
: 136 416 SMGSSCREATE_WCB, ! Create WCB and its buffers 
: 138 2i8 : SMGSSDEALLOCATE_WCB, ' Get rid of WCB and its buffers. 
; 160 go 1 SMGSSDUPL_VIRTUAL_DISPLAY, ! Duplicate a virtual display 
: 162 1 
: 163 1 
3: 164 1 
: 165 1 
: 166 1 
: 167 1 
3; 168 1 
: 169 1 
: 170 1 
s 171 1 
: 178 1 
» 2 1 
3; «174 1 
s $75 1 
; 176 1 
. aoe 1 
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SMGRTL.SRCISMGDISLIN.B32;1 
0438 1 | EXTERNAL REFERENCES 
0440 1 EXTERNAL ROUTINE 


LIBSANALYZE_SDESC_R2 : saeitoate oe SDESC_JSB_LINK, 
Get Cength-and-address of a string 


6 
: 178 
; 79 | 
; 180 
; «181 1 
; 136 1 
s 18 1 
; ee Bete : LIBSFREE_VM, ! Deallocate heap storage 
: 186 rk | i LIBSFREE_EF, ! Free an event flag 
; 188 044g LIBSGET_EF, ! Get an event flag 
; 129 Reed : LIBSGET_vM, ! Allocate heap storage 
: 136 pres } LIBSSCOPY_DXDX, ! String copy by descriptor 
: 194 0494 LIBSSFREE1_DD, ! Free a dynamic string 
: 196 0456 1 SMGSS$BEGIN_PASTEBOARD_UPDATE rl : SMGS$BEGIN_PBD_UPDATESLNK, 
; ioe ot 44 ; T Increase buffering level by 1 
: 199 0459 1 SHGSSEND.PASTEBOARD UPDATE R2 : SMGS$SEND_PBD_UPDATESLNK, 
; soe Rees : Decrease buffering level by 1 
; 202 O46¢ 1 SMGSSERASE_PASTEBOARD, ! Erase the physical screen 
: ope Beee 1 SMG$S$CHECK_FOR_OUTPUT_DCB, ! Force output if now is the time 
: 206 0466 SMGSSCHECK_FOR_OUTPUT_PBCB, ! Force output 
: 208 0468 1 SMGS$S$F ILL_WINDOW_BUFFER, ! Move stuff from virt. display to 
; $10 844 : ! pasteboard buffer and output. 
ant 0471 1 SMGSSFIND MIN CURSOR_POS, ! Set cursor on physical screen 
: sig Ree SMGS$$FLUSA_BUFFER, ' Flush output buffer 
: $i8 beee ' SMGS$SFORCE_SCROLL_REG, ! Force scrolling region on screen. 
: $18 Bees : SMGSSOUTPUT, ! Output a string to terminal 
: 218 hh ! SMGSSOCCLUDE, ebect for how two rectangular areas 
3 ' overlap. 
: $20 0480 1 ne 
; $5) ott i SMGS$$PBCB_EXIT_HANDLER, ! Qutput exit handler 
; 238 Reni : SMGSSSETUP_TERMINAL_TYPE; ! Get device characteristics 
: 995 0485 1 EXTERNAL LITERAL 
: 226 0486 1 
s der 0487 1 LIBS_EF_ALRFRE, ' Event flag yen free 
: 228 0488 1 SMG$_BATWAS_ON, ' Batching was enabled 
: 229 0489 7 SMG$_FATERRCIB, ' Fatal error in Library 
: 230 0490 1 G$_INVAR ' Invalid argument 
; $3! ety ' SMGSILLBATFNC, Operas ion. vs ag 0 to meienes display 
; > _ID, ' Invalid virtu isplay id 
s $34 0493 1 SMG$_INVPAS_ID, ' Invalid pasteboard id 
3 234 0494 1 SMG$_INVROW, ' Invalid row 


PRESDISPLAY LIN SMGSDISPLAY_LINKS = Virtual Display Linkages 22 -Sep-1984 00: 53:26 VAX=11 a? ss-32 V4.0-742 Page 


Declarations 14-Sep-1984 1 CSMGRTL.SRCJSMGDISLIN.B32;1 
: 5 0495 1 SMG$_NOTPASTED. ' Given display is not pasted to given 
3 6 0496 1 i pasteboard 
: 7 0497 1 SMG$_PASALREXI, : Pasteboard already exists for this device 
3 8 0498 1 SMG$_TOOMANDIS, ' Too many virtual displays requested 
; 239 0499 1 SMG$_TOOMANPAS, i Too many pastegserce requested 
; 240 0500 1 SMG$_WRONUMARG; i Wrong number of arguments 
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: dy data structure resides in OWN storage. It is the primary vehicle 
fer Babine. from a pasteboard id tu the associated pasteboard control 
! 


GLOBAL 
PBD_L_COUNT : INITIAL (0), oe of pasteboards we currently know 
! abou 


PBD_A_PBCB : V CPBD_K_MAX_PB, LONG) 

I (REP “BBD K “MAX PB OF (0)), 
' List of “pisteboare addresses. Indexed by 
i pasteboard id (PID) to find address of 


! corresponding PBCB. 


EC te CPBD_K_MAX_P 


PBD_V_PB_AVAIL : BITV 
INITIAL ( BYTE EREP TCPBD_K_MAX -PB+7)/8) OF (0))); 

i 

i 

i 

i 

i 

i 

i 


IT 
NI 
This iH a bit-vector “oT pasSteboard id's 

still available. The next available maber 
is found by ote a 4s instruction to find 
first bit which is a 0. The bit vei iy so 
computed is the next ag a PI he 

bit found is set to 1 to mark it as in use. 
(Presumably, a check has tiga wy made to 


MPP PON NNO NNN No Po nononononononononofereneforon) 
a kk kk tk tk ts 8 a a 


$ insure that PBD_L_COUNT is LSS PBD_K_MAX_PB.) 
f : ' Some constants needed by reference for FFC instruction 

7 2 ZERO : INITIAL (0), 

74 3 PBD_K_MAX_PB_BY_REF : INITIAL ( PBD_K_MAX_PB ); 


SSS SSS senses 
i Re ek ee Le Le Le 
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76 1 XSBTTL "SMGSCHANGE_PBD CHARACTERISTICS’ 
a GLOBAL ROUT INE SMGSCHANGE_PBD_CHARACTERISTICS 
79 P_DESIRED WIDTH 
8 P-RESULTING WIDTH, 
P-DESIRED HEIGHT, 
P"RESULTING HEIGHT, 
P-DESIRED_BACKGROUND_COLOR 
PIRESULTING_BACKGROUND_COLOR 


~~ 
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FUNCTIONAL DESCRIPTION: 


This routine lets oe change the physical dimensions 
of a pasteboard. t also lets you change the background color. 


: CALLING SEQUENCE: 


ret_status.wlc.v = SMGSCHANGE_PBD_CHARACTERISTICS 
( PBID.rl.r 
pepesaree WIDTH. rl.rJ 
»RESULTING WIDTH.wl.rJ 
C,DESIRED_HEIGHT.rl.r 
C,RESULTING_HEIGHT.wl.rJ 
C,DESIRED_ BACKGROUND _COLOR.rl.rJ 
C RESULTING_BACKGROUND_COLOR.wl.rJ 
' FORMAL PARAMETERS: 
PBID.rl.r Pasteboard id of pasteboard. 


If omitted, the width is not changed. 


RESULTING_WIDTH.wl.r Physical width that resulted. This may 
be larger than the width requested if the 
terminal width couldn't be set exactly to 
the desired width. This may be smaller 
than the width requested if the terminal 
width couldn't be set that wide. 

In this case, the terminal was set to 
it's maximum width. 
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i 
! 
i 
! 
DESIRED_WIDTH.rl.r New width desired for pasteboard. 
' 
i 
i 
i 
' 
! 
i 
i 
i 
! 
i 
' 
' 
i 
' 
i 
' 
i 
! 
' 
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$3 Example: (for vT100) 

28 1 Width Desired Width resulting 

25 g 60 80 

26 4 110 132 

27 5 150 132 

28 6 

$2 7 If desired width was omitted, this 

4 ; +8 2 ag receives the current pasteboard 
wi ‘ 

32 90 To find out what the pasteboard width is 
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irtual Di 
TERISTICS 


DESIRED_HEIGHT.rl.r 


RESULTING_HEIGHT.wl.r 


F 1 
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p=1984 00:29: AX-11 Bliss- 
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(as seerese to the terminal width), 
the caller should t - the minimum. 
of his desired width and the resulting width. 


New height desired for pasteboard. 
If omitted, the height is not changed. 


Physical height that resulted. This may 

be larger than the height requested if the 
terminal we tent couldn’t be set exactly to 
the desired height. This may be smaller 
than the height requested if the terminal 
height couldn't be set that high. 

In this case, the terminal was set to 

it's maximum height. 


Example: (for vT100) 
Height Desired Height resulting 
15 24 

35 24 


To find out what the pasteboard height is 

(as opposed to the terminal height), 

the caller should take the etnies 

of his desired height and the resulting height. 


DESIRED_BACKGROUND_COLOR.rl.r ee name for the background 


color ted. For example, 

SMGSC taco WHITE. These Symbols 
are defined in SMGDEF.SDL. 

If omitted, the background color 
is not changed. 


RESULTING_BACKGROUND_COLOR.wl.r Receives the actual background color 


that was chosen. If the terminal 
loan not support the exact color 
desired, the nearest approximation 
will be chosen. This is determined 
by songer ine the frequency of the 
desired lig t wave ,ogetnat the 
available frequencies. For more 
information about colorimetry, 
consult National Bureau of Standards 
Circular 553, The ISCC-NBS method of s 
designating Colors. ai 


Example: (VT100) 

Color desired Resulting Color 
yellowish pink white 

navy blue black 


SMGSDISPLAY_LIN SMGSDISPLAY_LINKS = V 
-096 SMGSCHANGE_PBD_CHARAC 


SWANN 
ooo > 


ouoououown 
SOOONOUES WR 


401 


we Se Se Se Se Se Se Se Ge Ge Ge Se Ge Se Se Se Ge Se Se Se Se Se Se ee Se Se ry 
ae at ot ot oe 
CoOooo°o°oo 
OONRAS 


0648 


COOOCSCCOCCOCCOOCOCOO 
PARAS AAAAA AAO 
PAEQPMNAAN INIT 

—COONOULS WOW” 


— a 2 as 1s 2s > > 4 os ss as ts © § ss ss 2 1 a a 


ee oe EE mS me 


irtual Di 
TERISTICS 


IMPLICIT INPUTS: 


NONE 


IMPLICIT OUTPUTS: 


NONE 


COMPLETION STATUS: 


SS$_NORMAL 
emcS. GRONUMARG 


SMG$_INVCOLARG 


SIDE EFFECTS: 


Physical width 


splay Linkages 


1 
ep-1984 1 CSMGRTL.SRCJSMGDISLIN.B52;1 (4 


the desired color is omitted, 
he value of this variable is not 
ffected. 


G 12 
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f 


Normal successful completion 

Wrong number of arguments, 

Can' ‘Srenge characteristics while buffering is on 
Invalid width of 0 desire 

Invalid petgat of 0 desired ; 

Unknown background color specified 


and background color of terminal may change. 
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1-096 SMGSCHANGE _PBD_CHARACTERISTICS 14-Sep-1984 13:09:4 SMGRTL.SRC smGDIS LIN. 8 2:1 (5) 
: 416 0673 BEGIN 
s 617 0674 
; 418 bee? EXTERNAL ROUTINE 
; 419 676 
; 420 0677 SMGSSCHECK_FOR ot — 
3. 62) 0678 atte a4 PAS TE_T 
; 4 ¢ 0679 SMGSSCREATE WCB, 
3 6 pOsy SMGSSDEALLOCATE wCB 
> 426 0681 SMGSSER ASE PASTEBOARD, 
s 625 pos SMGSSOUTPUT; 
: 426 068 
s 627 0684 § EXTERNAL LITERAL 
: 428 0685 
3 £92 0686 § SMG$_INVWIDARG, ! width=0 
: 4350 0687 SMG$_INVPAGARG, ! HEIGHT=0 
> 431 0688 2 SMG$_INVCOLARG, ' unknown color 
3 $36 0689 2 SMG$_PBDIN_USE; ! pasteboard was batched 
; 43 0690 § 
> 434 0691 BUILTIN 
; 435 9244 2 
; 436 069 2 NULLPARAMETER; 
3 657 0694 2 
: 438 0695 2 LOCAL 
; 439 0696 2 
: 440 0697 2 STATUS, ! Status of subroutine calls 
> 441 0698 2 PASTING ancest PANIC, ! TRUE if we must adjust pasting packets 
: re 5344 § CURR REF SPP _DECL, ! Pasting packet pointer 
: 44446 0701 2 PBCB : REF $PBCB_DECL; ! Address of pasteboard control block 
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1-096 SMGSCHANGE _PBD_CHARACTERISTICS 14-Sep-1984 SMGRTL.SRC shepls IN.852;1 (6) 
3 Pry | pres SSMGSVALIDATE_ARGCOUNT (1, 7); ! Test for right no. of args 
; ret: He SSMGSGET_PBCB (.PBID,PBCB); ! Get address of PBCB 
; 450 eo? § PASTING_PACKET_PANIC=0; 
: 451 70 
: $28 0708 '+ ; : , 
>; «45 0709 ! If a desired width is specified, get it now. 
: 454 0710 I 
; «64455 0711 
; 456 gris IF Ri NULLPARAME TER (P DESIRED WIDTH) 
; 457 071 THEN BEGIN ! Change asteboard width 
; 458 0714 ND DESIRED_WIDTH=.P_DESIRED_WIDTH; 
; 459 0715 3 !(a) LOCAL CURRENT-MAX, PDESTRED_MAXE 
; 460 0716 3 LOCAL PREVIOUS _WIDT 
: 461 0717 LOCAL RESULTANT “WIDTH; 
: re 0718 3 
: 46 0719 3 IF .DESIRED_WIDTH EQL 0 
> 464 0720 3 THEN RETORN SMES INVWIDARG; 
; 465 0721 3 
: 466 0722 3 ¢ ; 
3: 467 0723 3 ! tg ty the f arva tees setting of the terminal by roundin 
; 468 0724 3 ! up to 8 as necessary. Do the same for the desire 
; 469 0725 3 ! width, Set these two numbers to see if we must change 
; 470 0726 3 ! the width. This anger toe will have to change " we ever 
3; 471 0727 3 ' support terminals with widths other than 80 and 132. 
: 472 0728 3 '- 
> 473 0729 3 
3; 474 0730 3 IF .PBCBCPBCB ee LEVEL] NEQ 0 
3 475 0731 3 EN RETURN “SMG$_PBDIN_USE; 
; 476 0732 3 !(a) if .PBCBCPBCB w_UIDTAY LEQO 80 
3; 477 0733 3 !(a) THEN CURRENT _MAX=80 
3; 478 0734 3 !(a) ELSE CURRENT MAX=132; 
> 479 0735 3 ita) IF TiDESHRED WIDTH LEQU 80 
; 480 0736 3 !(a) THEN DESTRED_MAX=80 
: 481 0737 3 !(a) ELSE DESIRED ~RAX= 132; 
: 482 0738 3 
: 483 0739 3 !(a) + 
> 484 0740 3 !(a) ! If the desired max is the same as the current max, 
>; 485 0741 3 !(a) i then no escape sequence need be sent to the terminal. 
3; 486 bres 3 !(a) i Just adjust our internal width in the PBCB. 
; 487 0745 3 !(a) ie 
: 488 0744 3 
; 489 0745 '(a) IF_ .DESIRED_MAX NEQ .CURRENT_MAX 
; 490 0746 '(a) THEN 
3; «491 0747 
: 492 0748 3 !+ 
: 493 0749 ; ! 
: 494 0750 ‘ Note: (a) 
: 495 0751 ! 
; 496 eet ‘ The Lines marked !(a) could be added back in 
; 497 075 ' if you want to avoid puteuts ing the escape sequence 
; 498 0754 : to change the terminal width if it isn't necessary. 
3 499 0755 : However, that will mean the screen doesn't physically 
; 500 0756 : blank and so extra code would have to be written to 
3; 501 0757 : blank the o part of a screen when changing width 
3s 502 0758 ‘ (say) from 70 to 5C columns. 


aa ee oa ae Sowa eee eee a 


SMGSDISPLAY_LIN SMGSDISPLAY_LINKS = Virtual Display Linkages 16-Sep-1984 00:29:2 AX- =11 Bliss-32 V4. P 
1-09 SMGSCHANGE _PBD_CHARACTERISTICS gv ° 14- et 7 93:89:48 er ATL. SRC SmeDISiGN 6 B32;1 _ (a3 
0759 t= 
780 BEGIN ! Ch hysical width 
Org, ! Change physical widt 
6 LOCAL 
64 


NORMAL WIDTH, 
E_WIDTH; 


'¢ 
First, clear the screen. 


SSAGSGET TERM_DATA(ERASE_WHOLE_DISPLAY); 
IF CBCPBCB_L_CAP_LENGTH] NEG 0 
THEN: BEGIN” 
STATUS = SMGSSOUTPUT(.PBCB, spocecrace L_CAP_LENGTH], 
‘PBCBLP BCB_A_CAP_BuFFERJ); 
jt wot .STATUS THEN RETURN .STATUS 


'¢ 
i _Second, get the normal size. 


SSMGSGET_TERM_DATA(COLUMNS); 
IF .PBC errece.t L_CAP _LENGTH] NEQ 0 


THEN 
BIND RESULT=.PBCBCPBCB_A CAP BUFFER] | 
STATUS = SMG$SOUTPUT(.PBCB, =PaceLPacé L_CAP_LENGTH], | 
PBCBCPBCB_A_CAP_BUFFERJ); 
IF NOT .STATUS THEN RETURN .STATUS; 
NORMAL _WIDTH=.RESULT 


END 
ELSE NORMAL_WIDTH=80; 


'¢ 
q Third, get the wide size. 


COWWNOVES WN —$ O OONOUVUES WN (OC OODNAOULS WN" ODOONOUEW 


SSMGSGET_TERM_DATA(WIDTH WIDE); 
IF .PBCBIP coin L_CAP_LENGTH) NEQ 0 


THEN BE 
BIND RESULT= -PBCBCPBCB_A_CAP_BUFFE 
STATUS = SMGSSOUTPUT(.PBCB,. preceerece., 
IF NOT .STATUS — RETURN .STATUS; 
WIDE _WIDTH=. RESULT 


i 
ELSE WIDE_WIDTH=60; 


'+ 
i. Decide which sequence to send. 


Re & L_CAP LENG TH), 
CB_A_CAP_BUFFERJ): 


PUPP BS BS BS BB EEE BAMA AN A II Popo no nonunn 2 3 2 2 SO mS SM OCOOCCOO Co 


IF_.DESIRED WIDTH LEQ .NORMAL_WIDTH 
THEN BEGIN 


Be Bee Se Oe Se Se Se Ss Ge Ge Se Be Fe Se Se Fe Ge Ge Ge Ge Se Ge Ge Ge Se Ge Se Ge Ge Se Fe Se Se Ge Se Se Se Se Se Be Ge Se HH Se Se Se OH Se Se Se Se Se ee Se Seas 
LDV PV PV PVDPV PVP DVD PULP DUDE IU LESUSIV SUSU ST SUSE STITT SSIS SISTA TTS SITS IIIS 
Pw or or at or or ot eh al a al al a ah A ee ee ee eh a aa alah al oP oe oP or oP oP a ies eu Sule oP oP oP oP oP oP oP oP oP oP oP or ee | 


WONOVLS WN —OOONOUSWN— 


al 


Re Be Be Se Be Oe Be Se BeBe Oe Be BES e Se Be Be Be Se See FH Se SH Se HSH Se HSH Se SH Se SH Se Se ee HSH SH Se Se ee SHS SESH ee ee SH Oe SHS Oe Be Be oe 
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1-096 SMGSCHANGE _PBD_CHARACTERISTICS pons 12286871 382 13369548 SMGRIL SREISMODISLIN B82; 1 . (6) 
; 560 peig SSMGSGET_TERM_DATA(WIDTH NARROW) ; 
; 561 81 RESULTANT_WIDTH=.NORMAL_QIDTH 
; 266 0818 END 
; 0819 5 ELSE BEGIN 
> 564 0820 5 SSMGSGET_TERM_DATA(WIDTH WIDE); 
a 0821 5 RESULTANT _WIDTH=.WIDE_WIDTH 
; 566 08 ¢ 4 END; 
; 567 08 4 
; 568 0824 4 IF_.PBCBCPBCB_L_CAP_LENGTH] NEQ 0 
; 7 0825 5 THEN BEGIN 
; $70 0826 5 STATUS = SMGSSOUTPUT(.PBCB,.PBCBCPBCB_L_CAP_LENGTH], 
; 32 0827 5 -PBCBCPBCB_A_CAP_BuFFER]J); 
; 27¢ 0826 5 IF NOT .STATUS THEN RETURN .STATUS; 
ee 0829 4 END; 
; 574 0830 4 
ee 1 0831 4 1+ . 
3; (fe Beas 4 ! If we asked for something smaller than the terminal 
; ofr 08335 4 : could handle (Like a width of 60 on an 80-column terminal) 
; 578 0834 4 ! then we will software simulate the smaller width. 
3 6OTF 0835 4 l= 
; 580 0836 4 
3 28) rt t4 ; RESULTANT_WIDTH=MINU(.RESULTANT_WIDTH, .DESIRED_WIDTH); 
; 583 0839 3 END; ! Change physical width 
> 584 0840 3 
> 585 0841 3 + 
; 306 bets 3 ! Shouid we go back to the old scheme whereby we 
» Ser 0843 3 ' output the escape sogrenes only if the max width has 
; eee Obes : changed, then we need the foilowing Line: 
; 590 0846 3 '(a) ELSE RESULTANT_WIDTH=.DESIRED_WIDTH; 
3 29 0847 3 te 
; we 0848 3 
: 393 0849 3 led . 
; 594 0850 3 ' Save away new pasteboard width in the PBCB. 
; 595 0851 3 le 
; 596 oae6 3 
3 Ber 0853 3 PREVIOUS WIDTH=.PBCBCPBCB_W WIDTH); 
; 598 0854 3 PBCBLPBCB_W_WIDTHJ=.RESULTANT_WIDTH; 
; 599 0855 3 
; 600 0856 3 '¢ : ; 
; 601 0857 3 ! If the width changed, we must recalculate all the pasting 
; 602 0858 3 ' packet parameters pronto. Make a note. 
; 603 0859 ; le 
; 604 0860 
; 605 0861 ; : IF .PREVIOUS_WIDTH NEQ .RESULTANT_WIDTH 
; 606 086 : THEN PASTING PACKET_PANIC=7; 
; 607 0863 3 PASTING_PACKET_PANIC=1; 
; 608 0864 3 
3; 609 0865 ; + : : 
; 610 0866 ! At some point in the future, we might want to tell VMS 
; 611 0867 3 ! about this new width. If so, we would add that code here. 
: ol¢ 0868 ! There is probably no need to do that since we will restore 
; 67 0869 ' the original width when we delete this pasteboard. 
3; 614 0870 le 
3 615 0871 ; 
: 616 0872 2 END; ! Change pasteboard width 
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-Sep-1984 00:29: VAX-11 - 
SMGSCHANGE _PBD_CHARA : Sep-1986 19:09:48 OLR ISHED ISL GN Page 


irt ! 
TER USMGRTL- SREISMGDISLIN.B32; 1 (6 


If the user wants the pasteboard height, give it to him now. 


IF NOT NULLPARAMETER(P_RESULTING_ oy ot be 
THEN BEGIN ! Ret turn pasteboard Hg 
BIND RESULTING_HEIGHT=.P its LTING_HEIGHT; 
13 elle _HEIGHT=_PBCBCPBCB OWS) 
END; “Return a babaed Retone 


OOOOOOOOOOOOONO 


POMNOMONMONNONNIN) 2 SS 


96 
Mo MRE. : 
; 619 O75 3 | _If the user wants the pasteboard width, give it to him now. 
: 621 0877 ; 
3 3) 0878 IF rune NULL PARAME TER (P -RESULTING_WIDTH) $ 
; 6 0879 THEN BEGIN eturn cPastebosrd, width ; 
; ose 0880 BIND RESUL TING WIDTH = .P_RESULTING_WIDTH; $ 
: 6¢? Bass 3 1 laes we danny PacBLPaCE”U- | bd : 
; eturn pasteboard wi 3 
POE apres: ; 
: 699 0885 $ i If the user wants to change his height, do that now. ; 
; 630 0886 2! If he specifies an illegal height, hat's his problem; ; 
> 631 0887 2 ! we don't know what sort of runny terminal he might have. ; 
: Oss 0888 2! This code will have to change if we ever support terminals $ 
; 65 0889 § ! that can change height by sending them escape sequences. F 
me BB iE | 
> 636 089 é IF NOT NULLPARAMETER(P_DESIRED HEIGHT) - | : 
: 637 089 THEN BEGIN ! Change pesteboard he he 3 
; 638 0894 3 BIND DESIRED_HEIGHT = P DES RED. HEIGHT; : 
3; $39 0895 3 IF _ .PBCBCPBCB_L_BATCH_LEVEL] NEQ 0 ~ : 
; 640 0896 3 THEN RETURN ~SMG$ fe nee é 
3; 641 0897 3 IF .DESIRED_ HEIGHT EGL P 3 
3; 642 0898 3 THEN RETORN SMG$_INV ARG; é 
; 643 0899 3 -. aa 8B ROWS] NEG. OOF Siren HEIGHT $ 
Be 1 a 
: 646 0902 4 i Blank screen if we are making screen smaller, : 
3; 647 0903 4 ' so as to get rid of items after the bottom of F 
: os Bone ? the pasteboard. 3 
: 650 0906 4 IF MINU(24,.DESIRED_HEIGHT) LSSU .PBCBLPBCB_B_ROWS] ; 
; 651 0907 5 THEN BEGIN 3 
s 632 0908 5 STATUS=SMGS$SERASE_PASTEBOARD(.PBCB); 3 
; 653 0909 5 IF NOT .STATUS THEN RETURN .STATUS ; 
fe Bet ozs Pe eh 
: '+ 3 
3 626 0912 ¢ 4a ALL existing terminals have a maximum height of 24. : 
: 658 4 PBCBCPBCB B_ROWSIJ= MINY (26, DESIRED. HEIGHT); : 
: 228 : Se laa PACRET _PANIC=1 - 
; 66; 2 END; ' Change pasteboard height F 
: 688 Su : 
: e : 


o 

o 

io 
folelelejlelelelelelelelelalolejaia) 
ooo 
DONO UE WP OC OONOULE Ww 
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1-096 SMGSCHANGE _PBD_CHARACTERISTICS sips ’ 14- ate 198 99°89 28 CSMGRT 1° baeismep tein. 382: 31 ’ (6) 
> 674 0930 : If we changed either the width or height of the antennae, 
; Of 0931 ! then we must go adjust all the pesting p packets n 
: 676 09 ¢ ; _We must also reallocate and reshape the buffers "ts the wCB. 
; O77 093 
; 678 Bate 
; 679 0935 IF .PASTING PACKET PANIC 
: 680 0936 THEN BEGIN an pete all Pascing. pockets 
: 681 0937 LOCA L CURR : REF $SPP_DEC 
; 0938 
: 68 0939 "pect lecate the old wCB. 
> 684 0940 3 ie 
; 685 94) ; STATUS=SMGS$$SDEALLOCATE_WCB(.P cece BCB_ A_WCB]); 
; 686 94 if NOT .STATUS THEN RETURN .STATUS; 
; 687 0943 3 
; 688 0944 ; "florets anew WCB. 
; 689 0945 in 
; 690 0946 3 STATUS=SMGSSCREATE _WCB( ZREF(.PBCBCPBCB_B_ROWS)) 
: 691 0947 3 xR REF. PBCBLPBCB WiWIDTHJS, 
; oF 0948 3 CBCPBCB_A_WCBJ); 
; 69 0949 3 IF NOT .STATUS THEN RETURN . STATUS; 
: 694 0950 3 
; 695 0951 3 i “walk chain of DCB's for all displays currently pasted 
; 696 033¢ 3 i to this pasteboard, and go update their pasting packet. 
; 697 0953 3 i Start with first packet. 
; 698 0954 3 ie 
; 699 0955 3 CURR_PP=, PBCBCPBCB_A_PP_NEXT); 
: 700 0956 3 WHILE .CURR PP NEQ -PBCBEPBCB A_PP_NEXT] DG 
; 701 0957 4 BEGIN ! Update a pasting packet 
: 702 0958 4 LOCAL r 
2 at 2494 : PP_BASE : REF SPP_DECL; ! Base addr of this PP 
; 70s 0961 4 PP_BASE = .CURR_PP = PP_PBCB_QUEUE_OFFSET; ! Since queue header 
: 706 0962 4 ' not at top of 
; 707 0963 4 ' structure. 
b 0 0964 4 STATUS= Snesec Ale PASTE ope 4 F PP BASE); 
; 709 0965 4 IF NOT » STAT US TREN RETURN .S TA U 
> 710 0966 4 CURR_PP = .PP BASE NEP ALNEXT_PBCB) ! Step to next PP 
: 711 0967 3 END; ! Update a pasting packet 
: 712 0968 3 
; ris 0969 3 + 
3: 7146 0970 3 ' Force an update. 
3 «715 0971 3 te 
: 716 0972 3 
s 17 097 ; STATUS=SMG$SCHECK_FOR_OUTPUT_PBCB(. PBCB); 
3 at pare ; IF NOT .STATUS THEN STGNAL(.STATUS); 
: 720 0976 2 END; ! Update all pasting packets 
» way 0977 2 
: ose 0978 + 
3; fe 0979 i If a new background color is desired, go do that now. 
: $88 gon) § 
3; 12 098 IF NOT CRRA TERED DEBIRED eee yrs pee COLOR) 
3: 727 098 THEN BEGIN ! s1REBec3 background 
: 728 0984 BIND DESIRED COLOR=.P DESIRE ‘ " BACKGROUND COLOR; 
3 189 s+ BIND RESULTING_ COLOR=PBCBLPBCB _B_BACKGROOND_ COLOR]; 
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SMGSCHANGE _PBD CHARACTERISTICS my ° 14 2-398:) 3B 9: 89:4 SMGRTL.SRC *Fsmep ising B32;1 - (6) 
0987 3 IF .DESIRED_ COLOR EQL SMG$C_COLOR_WHITE 
0988 4 THEN $SMGSGET_TERM_DATA(CIGHT SCREEN) 
0989 ; ELSE SSMGSGET-TERM-DATA(DARK_SCREEN) ; 
0991 IF_.PBCBCPBCB_L_CAP_LENGTH) NEQ 0 
0992 4 THEN BEGIN™ 
099 4 STATUS = SMGSSOUTPUT(.PBCB,.PBCBCPBCB_L_CAP_LENGTH], 
0994 4 .PBCBCPBCB_A_CAP_BUFFERJ); 
0995 4 IF NOT .STATUS THEN RETURN .STATUS 
0996 3 END; 
0997 3 
Bae ; RESULTING_COLOR=.DESIRED_COLOR; 
1000 2 END; ! Change terminal coror 
1001 2 
1936 @ ie 
Ht § z If the user wants the new background color, give it to him now. 
1005 2. 
1006 2 IF outs Beet bos RESULTING =a COLOR) 
1007 3 THEN BEGIN ! Return Barty rou aes 
1008 3 BIND RESULTING. COLOR=.P RESULTING BACKGROUND_COLOR; 
1009 3 +2 pales CDLORS. PBCBCPBCB~ B _BACKGROOND_ COLOR] ~ 
1919 § END; “Return background Color 
ig § RETURN SS$_NORMAL 
1014 1 END; ! Routine SMGSCHANGE_PBD_CHARACTERISTICS 


-TITLE SMGSDISPLAY_LINKS SMGS$DISPLAY_LINKS = Virtual D 
isplay Linkages 
-IDENT \1-096\ 


~-PSECT _SMGS$DATA,NOEXE, PIC,2 
00000000 00000 PBD_L_COUNT: 


LONG 0 : 

00000000# 00004 PBD_A _pBtB:: 

<LONG 0£16) : 

00# 00044 PBD_V_PB_AVAIL:: 

“BYTE 02) : 
00000000 00048 ZERO:  .LONG 6 : 
00000010 0004C PBD_K_MAX_PB_BY_REF 

. CONG aT : 

.EXTRN LIBSANALYZE_SDESC_R 

-EXTRN LIBSFREE_VM> Pe Pree EF 

-EXTRN LIBSGET_EF, LIBSGET VA 

-EXTRN LIBSSCOPY DXDX, LIBSSFR D 

“EXTRN SMGSSBEGIN PASTEBOARD UPDATE R1 

.EXTRN SMGSS$END_PASTEBOARD_UPDA 

-EXTRN SMGSSERASE_PASTEBOARD 

.EXTRN SMGSSCHECK"FOR_OUTPUT_DCB 

.EXTRN SMGSSCHECK~FOR OUTPUT ~PBCB 

EXTRN SMGSS$FILL_QINDOW_BUFFER 
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en oe ht era ee . 
MG$$FIND_MIN_CURSOR_POS 

MGSSFLUSA_BUFFER 

MG$S$FORCE SCROLL REG 

MGS$S$OUTPUT, SMG$SOCCLUDE 

MG$$PBCB_EXIT HANDLER 
MG$$SETUP_TERMINAL_TYPE 

IB$_EF _ALRFRE, SmGS. _BATWAS_ON 

MG$-FATERRLIB, SMG$_INVARG~ 

MG$_ILLBATFNC, SMG$_INVDIS_ID 

MG$_INVPAS_ID, SMG$—INVROW- 

MG$_NOTPASTED, SMG$_ en 
MG$~TOOMANDIS, SMG$~TOOMANPAS 

MG$-WRONUMARG, SMG SSscare. _PASTE_TRANSF 
SMGSSCREATE_WCB 
SMGS$SDEALLOCAT 


wcB 
SMG$_INVWIDARG, SMG$_INVPAGARG 
SMG$-INVCOLARG, SMG$_PBDIN_USE 
SMGSGET_TERM_DATA 
_SMGSCODE,NOWRT, SHR, PIC,2 
SMGS$CHANGE_PBD_CHARACTERISTICS, Save R2,R3,- 
R4,R5,R6, R7 RB, R9,R10,R11 
emessOuTPU 
SMGS$GET_ TERA. DATA, R10 
#20, SP” 
#1, (AP), DIFF 
DIFF, #6. 
#SMG$_WRONUMARG, RO 
aPBID. RO 
RO, PBD_L_COUNT 
2$ 


RO, PBD_V_PB_AVAIL 
#SMGS_INVPAS—ID, “* 


PBD_A_PBCBLROJ, PBCB 
PASTING PACKET PANIC 


AP), 

5$ 

33$ 

B(AP) 

4$ 

@P_DESIRED_WIDTH, R8 
#SMG$_INVWIDARG, RO 
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SMGSDISPLAY_LIN SrGSD 1 SPLAT LINKS = Virtual Display Linkages 16-Sep- 
| 7-096 SMGSCHANGE _PBD_CHARACTERISTICS 1h-Sep- 
07 6C 91 00330 55$: 

0B if 8 4 

7. 3 4 

06 13 0034 

1c = BC OOF9 C4& 9A 00347 
50 01 DO 00340 56$: 
04 00350 57$: 
; Routine Size: 849 bytes, Routine Base: _SMG$CODE + 0000 


AX=-11 BLli feasasele my 
SMGRTL.SRCJSMGDIS N.B 2:1 

(AP), #7 

56$ 

OF ba 

ge, aP_RESULTING_BACKGROUND_COLOR 
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96 SMGSCHANGE_JIRTUAL_DISPLAY = Change Virtual Dis 12: -Sep-1984 1 SMGRTLe SRC SMGDISLIN. 5 2;1 
; 760 191? 1 XSBITL ‘SMGSCHANGE_VIRTUAL_DISPLAY = Change Virtual Display’ : 
; 761 1 1 1 GLOBAL ROUTINE SMGSCHANGE  DIRTUAL DISPLAY (¢ : 
3 76 1017 1 DISPLAY_ID, ; 
s 7% 1018 1 NUM_ROWS, ; 
> 764 1019 1 NUM_COLS, : 
: 765 1020 1 DISPLAY_ATTRIBUTES, : 
; 766 1021 1 VIDEO_ATTRIBUTES, . 
3; ror 19s¢ 1 CHAR_SET : 
; 768 1023 1 d= : 
; 769 1024 1 !+4+4 ; 
; 770 1025 1 ! FUNCTIONAL DESCRIPTIOM: $ 
: 771 1966 74 3 
; fe 1027 1! This routine changes the size or default attributes of an ; 
“Fae ae. 1028 1! existing virtual display. The text which is currently in this : 
3 774 1029 1! sirtual display js remapped to fit the new dimensions startin ; 
; Tr. 1030 1! at row 1 column 1. Resulting cursor position will be at row : 
3; 776 1031 1! column 1, ; 
» we St ie - ; 
; 773 1035 1 ! CALLING SEQUENCE: : 
; 779 1034 1! : 
; 780 1035 1! ret_status.wlc.v = SMGSCHANGE _VIRTUAL_DISPLAY ( : 
; 781 1036 1! DISPLAY_ID.rlir ; 
: 782 1037 1: /NUM_ROWS rl. rd : 
: 785 1038 1! C,N OLS.rl.r) : 
> «784 1039 1! poDISPLAY ATTRIBUTES. rl.rJ $ 
: «785 1040 1! »VIDEO_ATTRIBUTES.rl.rJ : 
: 786 1041 1! C,CHAR_SET.rl.r)) : 
: 787 1042 1! : 
; 788 1043 1 ! FORMAL PARAMETERS: : 
> =789 1044 1! : 
3 a Reg ! DISPLAY_ID.rl.r Display id of virtual display to be changed. . 
: 792 1047 1! NUM_ROWS.rl.r Number of rows in new virtual display. : 
; oe? Ho : If omitted, the number of rows remains the same. ; 
; 1050 1! NUM_COLS.rl.r Number of columns in new virtual display. : 
3 ee 102s ' If omitted, the number of columns remains the same. : 
: a 1927 : DISPLAY_ATTRIBUTES.rl.r The default display attributes: : 
; 800 1055 1! SMGSM_BORDER if virtual Gisolay te is to be $ 
; 801 1056 1! displayed with a border. : 
: 802 1057 1! 3 
; 803 1058 1! SMGS$M_TRUNC_ICON if an icon should be ftspleved $ 
: Hin 1328 : when text overflows the display bounds. : 
; 806 1061 1! SMG$M_DISPLAY_CONTROLS if carriage controls (CR, LF, 3 
; 807 106¢ : TFF, VT, HT) should be displayed instead 3 
; 808 1063 1! of executed. : 
; 809 1064 1! s 
; 810 1065 1! If omitted, the default Gisplay attributes : 
3; «6811 1066 1! currently associated with the display will be 3 
: aig 1067 1! retained. F 
3s 6€6BT 1068 1! : 
; 814 1069 1! VIDEO_ATTRIBUTES.rl.r The default rendition code to be : 
3; 6815 1070 1! applied to all output to this Stepisy unless 3 
; 816 1071 1°! overridden on a particular output ca : 


13 
SMGSDISPLAY_LIN SMGSDISPLAY_LINKS = Virtual Display Linkages 1h-Se -1984 00:29:2 AX-11 Bliss-32 V4.0-74 
1-096 SMGSCHANGE _VIRTUAL_DISPLAY - Change Virtual Dis 14-Sep-19 4 $9: 6934 SMGRTL.SRCISMGDISLIN.B 231 


If omitted, the current video attributes are 


Page (3 


retained. 

Values: 

SMG$M_BLINK displays characters blinking. 
SMG$M_BOLD displays characters in 


higher-than-normal intensity. 


SMGS$M_REVERSE displays characters in reverse 
video == tnat is, weiog the 
eens ive default rendition of 
the virtual display. 


SMGS$M_UNDERLINE displays characters underlined. 


CHAR_SET.rl.r The default character set for all text 
associated with this display. 
Recognized values are: 
SMG$C_UNITED_KINGDOM 
SMGSC_ASCII Tdefault) 
SM C_GRAPHICS 


0 00 00 00 CO C9 CD Co CO CD CO COCD CD CO CD ODODODCDCVOCRODCD 6 
FWWNNNAN NIIP NINN NNN SS 
DONAVUVESW OO OONAUS WN —OVODONOUSWNH—OWOo~ 


“ALT_CHAR 
SMG$C_ALT~GRAPHICS 


SOOOCOOCOOSOC OO OOOO OOO ODDO WDWOMMWMO0 NNN NNNN 


ea ee a ae ce a cee ee ee ce a ee a ce ee a ce a a ce ce cc ce me ce ce ce ee ce ee ce cc ce ee a ee aed ae oe od ed ed 
a a kk kk dt td td 2 = 9 9 3 3 BQO OOOO OCOD OC OOOO OCOOCOCOOCCOCOCOOCOCOCO 
CONOAU EWN 0 ODO NAME WN OOONAUE WN — O ODNAUS WHO OONAUFSWAR—OVOONOUS WI 


POPOPORONOPONY tt os 


Be Be Be Be Be Oe Oe Oe Oe Se Oe BH Se SH Oe Be Be Be Se Se SH Se Ge Ge SH Ge Be Ge Gs Oe Os Oe Se Oe Se Oe Oe Se Se SF Se OH Oe Se OSs OHO Oe OH se SH Se Se Sees es 


84 
84 
1 IMPLICIT INPUTS: 
84 NONE 
84 
ot IMPLICIT OUTPUTS: 
849 NONE | 
850 
Ses COMPLETION STATUS: 
853 0 SS$_NORMAL Normal successful completion 
See 7 LIBS_INSVIRMEM praut tte tent virtual memory to reallocate needed 
uffers. 

856 1 SMG$_INVARG Unrecognized Video Attributes 
857 1 or Unrecognized Display Attributes 
S26 ' SMG$_WRONUMARG Wrong number of arguments. 
ae? : SIDE EFFECTS: 
862 1 Cursor for virtual display will be forced to row 1 column 1 if 
863 1 display is redimensioned. a‘ : : 
864 1 If a labeled border orp tes and does not fit newly redimensioned 
£62 2 display, the label will be deleted. 
867 $ BEGIN 
868 2 BUILTIN 

+4 NULLPARAME TER; 
a7 LOCAL 

72 STATUS, ! Status of subroutine calls 

873 2 PP : REF $PP_DECL, ! Addr. of a pasting packet 


— 
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1-096 SMGSCHANGE VIRTUAL DISPLAY = Change Virtost Dis 1eesene1984 $9:0954 SMGRTLe SREISMGDI SEIN. B92: 1 oe 8 
> 874 1129 NEW W-ROWS ! Rew number of rows 

; 875 1130 NEW =COLS i New number of column 

: 876 113) DCB: REE $DCB_DECL, i Addr of display control block 

: gfe 3 ¢ NEW SIZE; i New rows * columns 

; 89 1134 SSMGSVALIDATE_ARGCOUNT (1, 6); ! Test for right no. of args 

: 881 1138 SSMGSGET_DCB (.DISPLAY_ID, DCB); ' Get address of virtual display 

; 882 1137 2 i control block. 

; 883 13 2 

> 884 1139 2 !+ 

: HHH 1129 § Determine size of new buffer we need. 

: +t 1136 $ "IF NOT NULLPARAMETER (NUM_ROWS) ! If new number of rows specified 

: 889 1144 2 NEW_ROWS = ..NUM_ROWS 

> 890 1145 2 

: 891 1146 : NEW_ROWS = .DCB CDCB_W_NO_ROWS); 

: 893 1148 2 IF NOT NULLPARAMETER (NUM_COLS) ! If new number of columns specified 
> 894 1149 2 THEN 

; 895 1150 2 NEW_COLS = ..NUM_COLS 

> 896 1151 § 

: 897 1138 NEW_COLS = .DCB CDCB_W_NO_COLS]; 

; 898 1153 2 

; 899 1154 2 NEW_SIZE = .NEW_ROWS * .NEW_COLS; 

; 900 1155 2 

> 901 1156 2 !+ 

; 902 1157 2! Adjust default Gisplay. video attributes and default character set if 

3 st 1138 § ‘ they are specified. 

; «4 Ht « § od wor NULLPARAMETER (DISPLAY_ATTRIBUTES) ! If display attributes specified 
: st 4 1168 § DCB CDCB_B_DEF_DISPLAY_ATTR] = ..DISPLAY_ATTRIBUTES; 

: 6 re: § IF NOT NULLPARAMETER (VIDEO_ATTRIBUTES) ! If video attributes specified 
: a 1188 § DCB CDCB_B_DEF_VIDEO_ATTR] = ..VIDEO_ATTRIBUTES; 

: 913 1168 2 IF NOT NULLPARAMETER (CHAR_SET) ! If char set specified 

3 914 1169 2 THEN 

; «6915 1170 2 DCB CDCB_B_DEF_CHAR_SET] = ..CHAR_SET; 

: 916 1171 2 

: 917 1178 

; 918 117 "it the dimensions of the old buffer and the new buffers are different, 

: 919 1174 ' we will have to allocate new buffer space and copy existing text into 

: ase 112? § a new buffers. 

: 922 1177 2 IF .0CB CDCB_L_BUFSIZE) NEQ .NEW_SIZE OR 

g Ve 1178 2 -DCB CDCB-W"NO -fOr8 NEQ .NEW_ROWS OR 

; ase 1123 goce DCB-W-NO_COLSJ NEQ .NEW-COLS 

: 926 1181 BEGIN ! Redimensioning required 

3: 927 1156 : 

; 928 118 STATUS, ! Status of subroutine calls 

3; 929 1184 ROWS_TO_MOVE, ! No of rows that will be moved from 

; 9350 1185 ' old buffer to new. 


— 
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> 931 1186 COLS_TO_MOVE, ! No of columns that will be moved from $ 
; 838 1187 ! old ” new F 
3 ¥ 1188 NEW_TEXT_BUF : REF VECTOR C,BYTEJ, ! Addr of new text : 
> 934 1189 ! buffer ; 
i; 955 1190 NEW_ATTR_BUF : REF VECTOR C,BYTEJ], ! Addr of new attr : 
; 936 1191 ! buffer ; 
: 937 1136 ; NEW_CHAR_BUF : REF VECTOR C,BYTEJ, ! Addr of new char_set ; 
: 938 119 ! buffer 3 
; 939 1194 3 : 
; 940 1195 3 TEXT_PTR : REF VECTOR C, BYTE], ! Address of current : 
; 3) 1136 3 ! text buffer in DCB. ‘ 
; 94 1196 : ATTR_PTR : REF VECTOR C,BYTE), ! Address of current : 
> 944 1199 3 ! attr buffer in DCB 3 
> 945 1200 3 3 
> 946 1201 3 CHAR_PTR : REF VECTOR C,BYTE); ! Address of current : 
; 947 1202 3 ! char_set buffer in : 
; 948 1203 3 ' DCB : 
; 949 1204 3 3 
3; 959 1205 3 + ; : 3 
: Ba) 1506 H Get space for two new, properly-dimensioned buffers. : 
; 985 1208 4 IF NOT (STATUS = LIBSGET_VM (ZREF (2 * ate SIZE), : 
; 954 1209 4 NEW_TEXT _BUF) : 
: 95 1210 3 HEN 3 
; 956 tel RETURN (.STATUS); : 
; 957 1212 3 : 
: 958 1213 3 NEW_ATTR_BUF = .NEW_TEXT_BUF + .NEW_SIZE; : 
; 959 1214 3 ; 
: 960 1215 3 1+ : : 
: 961 1216 3 i Now need to copy text =e attribute information from : 
; 962 1217 3 i .0CB CDCB_ A TE Paet? ond 2 DCB COCB_A_ATTR_BUF] to : 
; 963 1218 3 ! .NEW_TEST_BOF and .NEW_ATTR_BUF, preserving the Line context. : 
3; 964 1219 3 : First pre-blank Mo "peat _buf fer and attribute buffer in F 
s Oe 1220 3 ' case old do not cover new area. $ 
; 966 1221 3 = : 
; 967 1222 3 CHSFILL ( %C° -NEW_SIZE, .NEW_TEXT_BUF); $ 
3 ae8 \$s? ; CHSFILL ( .0cB foc _B_DEF_VIDEO_ATTR], .NEW_SIZE, .NEW_ATTR_BUF); : 
; 970 1225 3 TEXT_PTR = .DCB pce. A_TEXT_BUF J; 3 
3; 971 1226 3 ATTR— “PTR = .DCB CDCB_A_ATTR “BUF I; : 
3 a6 igst ; CHAR_PTR = .DCB CDCB_A_CHAR_SET_BUF); : 
> 974 \$¢2 ; ROWS_TO_MOVE = (.DCB COCB_W_NO_ROWS], .NEW_ROWS); 3 
; a? 1¢30 ; COLS_TO_MOVE = MIN -DCB COCB"W"-NO-COLSJ, .NEW_COLS); : 
: 977 1$36 3 INCR I FROM 1 TO .ROWS_TO_MOVE : 
; 978 1233 3 DO ; F 
; 979 1234 4 BEGIN ! Move text and attrib. to new buffers. F 
; 980 1$3? 4 CAL : 
; «981 1236 4 SOURCE_INDEX, 3 
; «982 1237 4 DEST_INDEX; 3 
: «983 1238 4 3 
: 984 1239 4 souack INDEX = t. I -1) * .DCB Cece W_NO_COLS] ; 3 
; «985 1609 4 T_INDEX = (.1 -1) * ..NUM_COLS ~ : : 
; 986 1241 4 3 
: «987 1242 4 CHSMOVE ( .COLS_TO_MOVE, ! No of chars. : 


| 
| 
| 
} 
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: 988 1243 4 TEXT_PTR C.SOURCE_INDEX], ! From 
: 989 ] $3 é NEW_TEXT_BUF C.DEST_INDEX)); ' To 
; PP 12466 4 CHSMOVE ( .COLS_TO_MOVE, ! No. of chars. 
; 99 1247 4 ATTR_PTR b gOpRCE INDEX], ' From 
; FF 1248 4 NEW_ATTR_BUF C.DEST_INDEX)); ! To 
3; 994 1249 & 
; 995 1520 4 ‘ 
: 996 1251 3 END; ! Move text and attrib to new buffers. 
; 997 1526 
; 998 125 + 
3 1000 1$2¢ Deal with alternate character set buffers if they exist. 
; 1001 1256 3 IF .DCB COCB_A_CHAR_SET_BUF] NEQ 0 
3; 1002 1257 3 THE : 
: 1003 1258 4 BEGIN ' Alt. char set buffer exists 
3 1004 1259 4 + ong : 
3 H's 44 1599 : Allocate a new alternate character set buffer and init. it 
; 1007 1262 5 IF NOT (STATUS = LIBSGET_VM (NEW_SIZE, NEW_CHAR_BUF )) 
3; 1008 1263 4 THEN 
3; 1009 1264 5 BEGIN 
: 1010 1265 5 LIBSFREE_VM (ZREF (2* .NEW_SIZE), NEW_TEXT_BUF); 
3 1011 1266 5 RETURN ({STATUS); ! Return LIB$_INSVIRMEM from GET call 
3 1012 1267 4 ; 
3 1013 1268 4 
3; 1014 1269 4 CH$FILL ( .DCB CDCB_B_DEF_CHAR_SET], .NEW_SIZE, 
: 1015 1270 4 »NEW_CHAR_BOF); 
: 1016 1271 4 
3 1017 1272 4 !¢ 
3; 1018 1273 4 ! Move current contents row by row 
3: 1019 1274 4 te 
; 1020 1275 4 INCR I FROM 1 TO .ROWS_TO_MOVE 
: 1021 1276 4 dO 
3; 1022 1277 5 BEGIN ! Move loop 
: 1023 1278 5 OCAL 
: 1024 1279 5 SOURCE_INDEX, 
3; 1025 1280 5 DEST_INDEX; 
: 1026 1281 5 
3: 1027 1282 5 SOURCE_INDEX = (.I-1) * .0CB CDCB_W_NO_COLS] ; 
3; 1028 1283 5 DEST_INDEX = (.1-1) * ..NUM_COLS 3 
3: 1029 1284 5 CHSMOVE ( .COLS_TO_MOVE, ' No of chars 
: 1030 1285 5 CHAR_PTR™C.SOURCE_INDEX], ' From 
: 1031 1286 5 NEW_CHAR_BUF C.DEST_INDEX]); ! To 
3; 1032 1287 4 END; ! Move loop 
; 1033 1288 4 
3: 1034 1289 4 '¢ “ 
3 Hd 1539 : Free old alternate char. set buffer and plug in new addr. 
3 1037 1392 5 IF NOT (STATUS = LIBSFREE_VM ( DCB COCB_L_BUFSIZE], 
: 1038 1293 5 DCB COCB_A_CHAR_SET_BUF])) 
; 1039 1294 4 THEN 
3; 1040 1so2 4 RETURN (.STATUS); 
3: 1041 1296 4 
: Ho 1297 4 DCB CDCB_A_CHAR_SET_BUF] = .NEW_CHAR_BUF; 
: 104 1298 4 : 
: 1044 1299 3 END; ' Alt. char set buffer exists 


: 
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AL | 
NEW_LINE_CHAR : REF VECTOR C,BYTEJ, Addr of a new 
Line Char. 


vector 


LINE_CHAR_PTR : REF VECTOR C,BYTE); Addr of curr. 
Line Char. 


vector 


LINE_CHAR_PTR = .DCB COCB_A_LINE_CHAR); 


'4 


$d1 
G$CH 

045 1300 
046 01 + 
047 4 ! Now that the text and attributes are safe in their 
048 0 ! new buffers, we release the old buffers and put the addresses 
ee be of the new buffers in the DCB. 
051 06 IF NOT (STATUS = LIBSFREE_VM (ZREF ( 2 * .DCB COCB_L_BUFSIZE]), 
O26 07 DCB COCB_A_TEXT_BUF IJ) 
05 08 THEN 
B28 2 RETURN (.STATUS); 
056 11 DCB pcp AEX BUF, = .NEW_TEXT BUF; ! Plug in new addresses 
057 lg DCB COCBTA-ATTR-BUF] = .NEW-ATTR-BUF; 
058 1 

59 14 + 

60 15 : If the number of rows changed, we need to reallocate tne 
061 16 ! Line characteristics vector and copy over as much of it ax 
6 i fits. 

64 19 IF .DCB COCB_W_NO_ROWS) NEQ .NEW_ROWS 
$66 THEN BEGIN ! N f h d | 

! No. of rows change 

067 Loc : 

68 
069 

0 

1 

2 

3 

4 

5 

6 

7 

8 

4 


: Allocate a new Line characteristics vector of the right 
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? length. Quit if we can't get it. 
82 IF NOT (STATUS = LIBSGET_VM ( SREF (.NEW_ROWS + 1), 
83 NEW_LINE_CRAR)) 
84 THEN 
a2 BEGIN ! Error path 
87 ! Give back all space acquired on this transaction, 
aS ignoring further errors, and quit. 
090 LIBSFREE_VM ( ZREF (2 * .NEW_SIZE), NEW_TEXT_BUF); 
091 RETURN ( .STATUS ); 
O98 END; ! Error path 
09 
094 '¢ 
ae $e ! Clear entire allocated vector to zero 
097 35 CHSFILL ( 0, .NEW_ROWS+1, .NEW_LINE_CHAR); 
098 35 
099 35 '¢ : kes 
100 35 : Copy over as much of old Line characteristics vector as 
101 35 ! will fit. 
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; 


Ye. 9 786 
DISLIN.B52;1 


nn 
xz. 
ow 
um 
wm 
Bw 
am 


roe 


— 


le 

CHSMOVE ( .ROWS_TO_MOVE, 
LINE_CHAR PTR fi} 
NEW_CINE_CHAR (135; 


oun 
~ 


MEW SO ODNOA UNE WIN 9 OD NOUS WN OC ODNAUES WR" OCONAOUS WIN —OOO 


4 
; Free former Line characteristics vector. 


IF NOT (STATUS = LIBSFREE_VM ( 
XREF~(.0CB 


C ROWS] +1), | 
DCB COCB_A_L )) 


DCB_W_NO 
INE~CRARJ 
THEN 

RETURN (.STATUS); 


‘4 
Store address of new Line characteristics vector in DCB 
DCB CDCB_A_LINE_CHAR] = .NEW_LINE_CHAR; 
END; ! No. of rows changed 
+ 
Adjust the no. of rows and no. of cols. recorded in the DCB. 


DCB CDCB_W_NO_ROWS] = .NEW_ROWS; ! Adjust row/column size 
DCB CDCB"WINO-COLSJ = .NEW-COLS; 
DCB CDCBTL-BUFSIZE] = .NEWUSIZE; 


‘+ 
Force cursor to home. 


DCB [DCB_W_CURSOR_ROW) = 1; 
DCB CDCB-W-CURSOR-COL) = 1; 


‘+ 
! Knock down flags that indicate we are at end of a row and that 
we are in last Line. 


DCB CDCB_V_FULL]__ = 
DCB CDCB-V~COL_80) = 


‘+ 
! Reset the scrolling region within the redimensioned virtual 
display to be the whole display. 


dcB fDCB_u._10P OF _SCRREG) 
DCB CDCB7W7BOTTOM~OF _SCRREG) 


‘+ 
Now deal with border data, if any exists. 


IF .DCB COCB_V_BORDERED) 
THEN 
BEGIN ' Bordered 
LOCAL ? ; ; 
DESC : REF BLOCK (8,BYTE); ! Pointer to dynamic string 
' desc. for border Label 


OO OO O09 0009 09 00 09 09 09 SI NI SI SINUS OA AAA OOo 


0 
0; 


1; 
-NEW_ROWS; 


COOCOCCoOUCOoOUONO 


Se 


BBE FANNIN NAA AAA AAA NWA NWNNIWWAE BEEP LPNS LLL LLL LE 


PUP PUPPIES BS BB BB EE BE AWW NAAN PPI POPUNINPYNNDD 2 2 2 OOS SS SM OOOOOOOO On 
DW NAW EWN OOD NOU EWN OO ODNAU EWN $9 ODNAU EWN SO ODONOUESWWN "OO DOONOU EW 
a ee ee Eee SSS 
BEEBE EEE EEE EEE FAWN NANA AA AA ANWAAA MAAN MANNION 

Bee Be Oe Oe Oe Oe Be Oe Bee Se Oe Be Oe Se SH He Se Se SHS SH Se SH Se SH Se Se Se Se Se Se Se Se SH Se Se SHS Ge Se Se SH Se ee Se Se Se SES Se Seas te Beas 


~——— st OO 
Wnr—OOe 


ro 
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4 DESC = oce CDCB_Q_LABEL_DESC); 
4 1F «DESC DSCSA-POINTER] NEQ 6 ! If label exists 
4 BEGIN ' Label exists 
4 LOCAL 


TEMP; 
TEMP = .0CB CDCB_W_LABEL_UNITS); 


4 

! Try to reapply our existing border label on this 

! redimensioned virtual display. If it now doesn't 

} fit because of the new dimensions, delete the Label. 


iF NOT (SMGSLABEL_BORDER ( 
-BISPLAY_ID 
“DESC, 
TREF (.DCB CDCB_B_LABEL_POSI), 


: Conditionalize UNITS parameter to 

: LABEL_BORDER depending on whether 

: caller originally specified — : 
“centering. or gave us specific units. 


(1F .0CB COCB_V_LABEL_CENTER] THEN 0 
ELSE TEMP), 
XREF ( .0CB CDCB_B_LABEL_REND]) 


PMrororonn eS Se 


a 
SOON VL WN SO OONAU EWN —$ O ODNAU EWN (OO ONAUS WH OVO ONAUESWWN-OVOONOUL 


’ 


THEN 
LIBSSFREE1_DD ( .DESC); ! Delete label 
ND; ' Label exists 
END; _ | Bordered 
END; ! Redimensioning required 


14 

! Since the dimension of the virtual display may have changed, or we 

: may have added or deleted a border, we need to recalculate the 

: transformation constants that occur in each pasting packet we are 

: involved in. : } 

Check to see if we can do it now or must wait because we are batched. 


Eee CDCB_L_BATCH_LEVEL) EQL 0 
BEGIN ! Can do it now 
LOCAL z 
CURR_PP : REF $PP_DECL; ! Addr of a pasting packet 


if gs (STATUS = SMGSSRECALC_PP_FIELDS ( .DCB)) 
RETURN (.STATUS) ; 
+ 
! Remap all pasteboard buffers to which we are pasted, from the 
bottom outward. 


CURR_PP = .DCB CDCB_A PP_NEXT); 
WHILE .CURR_PP NEQ BCB COCB_A_PP_NEXT] 


Ok kt kt tt ht ss OO 
tt BIQOOCOOCOOCOOO OOO OOOO OO OWWW WW WW WWD NIN NNN NINN INO AOAAAOAOAAOOOm OO 
MEW =O OONOUE WN $9 OO AUS WN — OVD ONOAUES WH $C OONAUFSWN —COONOULSWH OW” 
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SSeS essen 
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3; 1216 1471 4 BEGIN ! Remap all pasteboards 
3 1217 1056 4 LOCAL " r 
; 1$18 aS : PBCB : REF $PBCB_DECL; Addr of a pasteboard control 
; 0 
: 1220 1475 & PBCB = .CURR_PP CPP_A_PBCB_ADDR DRI; 
3 \$s! 1008 i i 3 (STATOS = SMGSSCHECR_ FOR ~OuTPUT _PBCB ( .PBCB)) 
; 1298 1008 : NRETURN ( .STATUS); ! Quit if any one of them fails 
: 1225 1480 4 CURR_PP = .CURR_PP CPP_A_NEXT_DCBJ]; ! To next pasting packet 
: 1226 1481 3 END; | Remap all pasteboards . dis 
3: 1227 Jane 3 
3; 1228 148 3 RETURN ( /58$ NORMAL) ; 
3; 1229 1484 3 END ' Can do it now 
3: 1230 1485 3 
s 1231 1486 2 ELSE 
3 1232 1487 2 
3 1233 1488 3 BEGIN ' Must fie ae end dis lay batch 
3; 1234 1489 3 Hy CDCB. V_PP_MISMAT(: ha rk” it for later update 
: 1235 1490 2 END; T Must delay a, end Ph. AF batch 
; 1236 1491 2 
3; 1237 1492 2 RETURN ( SS$_NORMAL); 
; 1238 1493 1 END; ! Routine SMGSCHANGE_VIRTUAL_DISPLAY 
OFFC 00000 ~ENTRY pees nage ¥en L_DISPLAY, Save R2,R3,R4,- ; 1016 
6,R7,RB,R9,R10,R11 : 
5E 30 C2 00002 SUBL2 ; : 
50 6C 01 83 00005 S$UBB3 i, (AP), DIFF 3 1134) 
05 50 91 00009 CMPB DIFF, #5 3 
0&8 1B 0000C BLEQU 1$ F 
50 00000000G 8F DO QO00E MOVL #SMG$_WRONUMARG, RO F 
04 00015 RET ; 
50 04 BC DO 00016 1$: MOVL @DISPLAY_ID, RO 3 1136. 
04 BC 38 AO D1 QOO1A CMPL 56(RO), SDISPLAY_ID ; 
06 12 OOO1F BNEQ 2$ ; 
11 44 AO 91 00021 CMPB 68(RO), #17 3 
08 13 00025 BEQL 3$ F 
50 000000006 8F D0 00027 2s: MOVL § WSMG$_I'AVDIS_ID, RO : 
04 0002E RET 3 
56 04 BC DO pote 3$: MOVL @DISPLAY_ID, DCB 3 
02 6C 91 00033 CMPB (AP), #2 s 1142 
OB 1F 00036 BLSSU_ 4$ : 
08 AC D5 00038 TSTL 8( AP) 3 
06 13 00038 BEQL 4$ 3 
58 08 BC DO 0003D MOVL @NUM_ROWS, NEW_ROWS 3 1144 
04 11 00041 BRB 5$ 3 
58 02 AS 3C 00043 4$ MOVZWL 2(DCB), NEW_ROWS + 1146 
03 6C 91 00047 5$ CMPB (AP), #3 : 1148 
OC 1F QOOO4A BLSSU 6% : 
0c AC rf 0004C TL 12( AP) : 
07 13 O004F BEQL 6$ : 
18 AE 0c BC DO 00051 MOVL @NUM_COLS, NEW_COLS : 1150 
05 11 00056 BRB 7$ ; 
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14 
—_ LIN SMGS$DISPLAY_LINKS = Virtual Display Linkages f. Se AX-11 Bliss-32 V p 4 
3-09 SMGSCHANGE_QJIRTUAL_DISPLAY - Che ange y Virtusl Dis 1e- =3ePe] 38 0: 69:4 SMGRTL.SRCJS Sheps Tn. n Bae: :1 wns 3} 
@NEW_TEXT_BUFCDEST_INDEX] : | 
OC BES9 9F 0012¢ PUSHAB @NEWATTR-BUFLRO] ~ + 1248 
9E OC BE4A 14 AE 28 85385 MOVC3 COLS=10_ MOVE, @SOURCE_INDEXCATTR_PTR], - : 
v5 57 14 AE £3 00137 16$:  AOBLEQ ROWS TO_MOVE, I, 15$ + 1232 
18 Ab b3 0013¢ TSTL 4 (DCB) : 1256 
6E 13 0013F EQL 2$ : 
1¢ «AE OF 00141 PUSHAB NEW_CHAR_BUF t 1262. 
24 AE OF 00144 PUSHAB NEW.SIZE : 
000000006 00 02 FB 00147 CALLS #2, LIBSGET_VM : 
6E 50 DO 0014E MOVL RO, STATUS : 
16 6E 8 00191 BLBS _—s STATUS, 198 : 
28 «AE SF 00154 PUSHAB NEW_TEXT_B : 1265 
OC AE 24 =OAE 01 78 00157 ASHL #1, NEW_ sive, 12(SP) : 
OC AE 9F 0015D PUSHAB 12(SP) : 
000000006 00 02 FB 00160 17$: CALLS #2, LIBSFREE_VM : 
OOCA 31 00167 18$: RW 24$ + 1266) 
20. AE 30 Ab 6E - 00 2¢ 016A 19$:  MOVCS #0, (SP), 48(DCB), NEW_SIZE, @NEW_CHAR_BUF ; 1270. 
59 D4 00173 CLRL I : 1285 | 
1B 11 00175 BRB 21$ ; | 
50 FF AQ QE 00177 208 MOVAB -1(R9), RO t 1282. 
51 06 Ab 3C 0017B MOVZWL 6(DCB), SOURCE_INDEX : | 
51 50 C4 0017F MULL2 RO, SOURCE_INDEX : 
50 0c BC C4 00182 MULL2 @NUM_COLS, ~DEST_INDEX + 1283 
57 04 AE DO 00186 MOVL CHAR =PIR. R + 1286 
1C BE4O 6147 10 AE 28 0018A MOVC3 COLS~TO_MOVE, (SOURCE_INDEX)CR7], - ; 
@NEW_CHAR_BUFCDEST_INDEXJ 3 
EO 59 14 AE £3 00192 218: AOBLEQ ROWS-TO_MOVE, I, s0$ > 1275 
18 A6 9F 00197 PUSHAB 24 (De . : 1293 
3C =6A6 OF 0019A PUSHAB DCB) : 1292 
000000006 00 02 FB 0019D CALLS a LIBSF REE _VM : 1293 
6E 50 DO 001A4 MOVL RO, STATUS ; 
BD 6— £9 001A7 BLBC —« STATUS, 18s ; 
18 Ab 1C AE DO OO1AA MOVL NEW CHAR _BUF, 24(DCB) : 1297 
10 A6 OF OOIAF 228: PUSHAB : 1307 
14 AE 3c AG 01 78 001B2 ASHL  EOCDCB). 20(SP) : 1306 
14 AE 9F 001B8 PUSHAB : 
000000006 00 02 FB 001BB CALLS #2, LIBSF REE _VM : 1307 
6E 50 pO 001C2 MOVL RO, STATUS : 
6C 6— €9 001C5 BLBC STATUS, 24$ F 
10 A6 28 AE DO 001C8 MOVL NEW_TEXT BUF. 16(DCB) : 131 
14 Ab OC AE DO 001CD MOVL § NEWTATTRTBUF, 20(DCB) : 131 
58 02 Ab 10 00 FD 00102 CMP2V #0,-#16,~2(DCB), NEW_ROWS : 131 
62 0108 BEQL  26$ F 
59 4C AB dO OO1DA OVL  76(DCB) LINE _CHAR_PTR : 133 
24 AE 9F OO1DE PUSHAB NEW LINE CHAR : 133 
52 01 ABS 9E 001E1 OVAB 1(RB), R2 ; 
146 AE 52 DO OO1ES OVL Re 26(SP) ; 
14 AE 99F 001E9 PUSHAB 20(SP) F 
000000006 00 02 FB OO1EC CALLS #2, LIBSGET_VM ; 
6£ 50 DO 001F3 MOVL RO, STATUS ; 
OF 6E £8 O186 LBS _— STATUS, 238. F 
28 AE SF 001F9 PUSHAB NEW_ TEXT > 1345 
16 AE 24 =A 01 78 OO1FC SHL #1, ~NEW Side, 20(SP) ; 
14 AE OF 90208 PUSHAB 20(SP) ; 
FF58 31 0020 Rw 17$ : 
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SMGSDISPLAY_LIN SMGSDISPLAY_ LINKS = Virtual Display Linkages 16-Sep-1984 00: 63:26 AX-11 Oh ft eecae eA Page 36 S¥ 
1-096 SMGSCHANGE _VIRTUAL_DISPLAY = Change Virtual Dis 14-Sep-1984 13:09:4 SMGRTL.SRCIJSMGDISLIN.B32;1 ( 1- 
50 01 dO ita ts 368: MOVL #1, RO 3 1492. 
04 002DD 33$: RET 3 149 


; Routine Size: 734 bytes, Routine Base: _SMGSCODE + 0351 


; 1239 1494 1 !<BLF/PAGE> 


SMGSDISPLAY_LIN SMG$D 
1-096 M 


H 14 
ISPLAY_LINKS = Virtual Display Linkages 16-Sep-1984 00:29:2 AX-11 Bliss-32 V4.0-74 p 7 
GSCH rte’ ° : 9:59: MG 7 a 


ss 
CK_FOR_OCCLUSION = Check to see if displ 14-Sep-1984 1 SMGRTL.SRCJSMGDISLIN.B32;1 8) 


ZSBITL "SMGSCHECK_FOR_CCCLUSION = Check to see if display is occluded’ 
GLOBAL ROUTINE SMGSCHECK_FOR_OCCLUSION ( 


S$ 

S E 
> 1241 1495 1 
: 1 ts 1496 1 
: 124 1497 1 
3 iste 1498 1 PASTEBOARD_ID 
> 1245 1499 1 OCCLUSION_ STATE 
> 1246 1500 1 )= 
> 1247 1501 1 !44 
; 1248 1286 1 ! FUNCTIONAL DESCRIPTION: 
> 1249 1503 1! 
; 1250 1504 1! This procedure determines if the given virtual display, as 
3; 1251 1505 1! pasted to the fixer asteboard, is occluded by another virtual 
3 1$28 1208 : display. The OCCLUSION state is set to: 
3 1254 1508 1! 1 : if virtual display is occluded 
: 1255 1307 1 0 : if virtual display is not occluded. 
: 1$26 1319 : not meaningfull : if status is not SS$_NORMAL. 
: 1258 Sie 1! The returned status reflects whether the question could be 
: 1259 ot a answered at all. 
; 1260 1514 1! 
3 1261 1515 1 ! CALLING SEQUENCE: 
3; 1262 13916 1! 
3; 1263 elt ae ret_status.wlc.v = SMGSCHECK_FOR_ OCCLUSION ( 
> 1264 1518 1! DISPLAY_ID.rl.r 
: 1265 1519 1 | PASTEBOARD_ID.rl.r, 
: 1266 1520 1! OCCLUSION_STATE.wl.r) 
: 1267 1521 1°! FORMAL PARAMETERS: 
: 1268 1522 1! 
> 1269 1525 1! DISPLAY_ID.rl.r Address of a display id. 
: 1270 1524 1! 
; 1271 ideo 7 f PASTEBOARD_ID.rl.r Address of a pasteboard id. 
: 1272 1526 1! } 
3 Tero loer 61 7 OCCLUSION_STATE.wl.r Set to 1 if occluded 
3: 1274 1528 1! 0 if not occluded 
: 1275 1529 1! 
3 1¢76 1530 1! 
3 127 1531 1 =! IMPLICIT INPUTS: 
; 1278 1532 3! 
: 1279 1533 1! NONE 
: 1280 1534 1! 
3; 1281 1535 1°! IMPLICIT OUTPUTS: 
: 1282 1536 1! 
: 1283 1537 7! NONE 
: 1284 1538 1! 
3; 1285 1539 1 ! COMPLETION STATUS: 
: 1286 1540 1! 
: st Ht 9} : SS$_NORMAL Normal success. OCCLUSION_STATE calculated. 
3; 1289 1348 1} SMG$_NOTPASTED Given virtual display is not pasted to given 
: 1290 1544 1! pasteboard. 
3 1291 1545 1! ‘ ; 
: 1996 1268 1 SMG$_INVPAS_ID Invalid pasteboard id. 
; 129 1547 1! ; ; 4 
3 1294 1548 1! SMG$_INVDIS_ID Invalid display id. 
: 1295 1549 1! 
3: 1296 1550 1 ! SIDE EFFECTS: 
3; 1297 1333 4% 


r- 
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SMGSDISPLAY_LIN SMGSDISPLAY_LINKS = Virtual Display Linkages 18-Sep-1984 90: 63:4 exe gt a es V4.0-74 Page 3 
1-096 SMGSCHECK_FOR_OCCLUSION = Check to see if displ 14-Sep-1984 13:09:4 SMGRTL.SRCIJSMGDISLIN.B32;1 (8) 
; 1298 1328 1! NONE 
3; 1299 1555 1 !- 
; 1500 1554 1 
; 1301 1555 BEGIN 
3% bs 1556 LOCAL 
; : 3 1222 STATUS, { Status of subroutine calls 
: : Re 1222 2 PP : REF $PP_DECL, ! Address of relevant pasting packet 
; i 4 126! ; PBCB: REF $PBCB_DECL, ! Address of Pasteboard Control Block 
; 1309 1368 § DCB : REF $DCB_DECL; ! Address of Display Control Block 
; 1310 1564 
3 1311 +i oe eee 
3; 5 \¢ 1566 2 ! Validate number of arguments. 
s 331 1567 2 !- 
3 1314 1568 2 SSMGSVALIDATE_ARGCOUNT (3, 3); 
s 1315 1569 2 
3; 1316 1570 2 !+ , ; 
3 Wal" 1571 2 ! Get DCB and PBCB addresses that go with these display ids and 
3; 1318 1572 2 ! pasteboard ids. 
3 1319 1573 2 !- 
; 1320 1574 2 SSMG$GET_DCB (.DISPLAY_ID, DCB); 
3: 1321 1575 2 SSMGSGET_PBCB (.PASTEBOARD_ID, PBCB); 
3: 1322 1576 2 
3 1323 1577 2 !¢ ‘ 
3; 1324 1578 2! Try to find the gethes | partes that binds these two. Return 
; : S? 1379 4 } SMGS_NOTPASTED it can't be located. 
3 13e7 1581 3 IF NOT (STATUS = SMGS$S$LOCATE_PP ( .DCB, .PBCB, PP)) 
: 1328 1386 2 HEN 
: 1329 1583 2 RETURN (.STATUS); 
3; 1330 1584 2 
: 1331 1585 2 !+ 
; : 3 1358 § Check to see if occluded and return appropriate OCCLUSION_STATE. 
: 1334 1588 3 -OCCLUSION_STATE = ( IF .PP CPP_V_OCCLUDED] THEN 1 ! Occluded 
3: 1335 1589 2 ELSE 0); ! Not occluded 
3 1336 1590 2 
3 1337 1591 2 RETURN SS$_NORMAL; : 
; 1338 1592 1 END; ! End of routine SMGSCHECK_FOR_OCCLUSION 


0004 00000 .ENTRY SMGSCHECK_FOR OCCLUSION, Save R2 : 1496 
52 00000000' §£F 9€ 00002 MOVAB PBD_L_COUNT, R2 : 
SE 04 ¢2 00009 SUBL2 #4, : 
03 6C 91 0000C CMPB CCAP), #3 > 1568 
08 13 0000F BEQL ; 
50 000000006 8F D0 09011 MOVL § #SMGS$_WRONUMARG, RO : 
04 00018 RET ; 
50 04 BC DO 00019 1$: MOVL  @DISPLAY_ID, RO > 1574 
04 BC 8 AO D1 0001D CMPL 56(RO), SDISPLAY_ID ; 
06 12 9022 BNEQ 2$ : 
11 44 Ad 91 00024 CMPB =s-« BRO), #17 : 


3 1339 


; Routine Size: 


OR_OCCLUS 


08 44 
0000V 
oc 
119 bytes, 


1593 


1 !<BLF/PAGE> 


50 


51 
50 


Routine Base: 


SMGSDISPLAYLIN SMGSDISPLAY LINKS = Virtual Display Link 
1-096. MGSCHECK_F ION = “Check to’see treads 
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000000006 BF 03 0 

04 00 

04 BC bO 00 

08 BC it 0 

OA 19 00 

50 D1 00 

05 14 00 

90 £0 88 
00000000G 8F 00 

4 A240 DO 00 

4001 8F BB UO 

51 DD 00 

03 FB 00 

50 £9 00 

6— DO 00 

2A =6AO «ED 00 

01 DO 00 

02 11 00 

50 D4 00 

50 00 00 

01 00 00 

04 00 
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MG$_INVDIS_ID, RO 


SPLAY_ID, DCB 
STEBOARD_ ID, RO 


+ PBD_L_COUNT 


PBD_V_Pa_AVAIL 
MG$_IRVPAS"ID, bg ° 


PBD_A A,PaCBEROI, PBCB 
#*M2R0,5 


D 
#3, SMGSS$LOCATE_PP 
STATUS, 8$ 
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PP, R 
42(RO), 6$ 
#1, RO 


RO 
RO, @OCCLUSION_STATE 
#1. RO 
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| SMGSDISPLAY_LIN SMGSDISPLAY_LINKS = Virtual Display Linkages 16-Sep-1984 00:29:2 AX-11 Bliss-32 V4.0-74 Pe 40 
1-096 SMGSCREATE_PASTEBOARD = Create asteboard” 13-808- 1 3b 99:59: SMGRTL. RCISMGDISLIN.B 2;1 ot (9) 
41 XSBITL 'SMGSCREATE_PASTEBOARD = Create Pasteboard' 
4 GLOBAL ROUTINE SMGSCREATE_PASTEBOARD ( 
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NEW_PBID 
OUT" DEVICE, 
PB_Rows, 


PB-COLS 

PRESERVE_ SCREEN. FLAG 
oe 
FUNCTIONAL DESCRIPTION: 


This routine creates a new pasteboard -- returning its assigned 
pasteboard_id. OUT_DEVICE is the device upon which this 
pasteboard is to be written. If not supplied, output will flow 
to SYSSOUTPUT. 


If PB_ROWS and/or PB_COLS are provided, they are filled in with 


the number of rows and number of columns on the physical device. 


If called upon to create a 2nd pasteboard on a device that 
already has a pasteboard associated with it, we simply return 
the id of the pe coagy outst ing pasteboard and the qualified 
success SMG$_PASALREXI. 


PAAGAS SEMANAS PPP 


WWANWNAWAANANANWNNNWWWnw 
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the number of columns on the physical device. 
PRESERVE_SCREEN_FLAG COptional]. If provided, and if has a 


value of Hi then the screen will not 
y 


be initia cleared. 


! IMPLICIT INPUTS: 
NONE 
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$e o18 CALLING SEQUENCE: 

36 620 ret_status.wlc.v = SMGSCREATE_PASTEBOARD ( 

36 621 NEW D.wl.r 

36 622 C,O0T_DEVICE.rt.dxJ 

37 623 C,PB_ROWS.wl.r 

37 624 C,PB_COLS.wl.rJ 

3 6¢> C,PRESERVE_SCREEN_FLAG.rl.rJ) 

¢ oe? ! FORMAL PARAMETERS: 

3 o¢? NEW_PBID.wl.r Pasteboard id of newly-created pasteboard. 
37 631 OUT_DEVICE.rt.dx COptional). If supplied, this parameter 
37 632 is the file specification or logical 
38 633 name upon which the output associated 
38 634 with this pasteboard will be written. 
HS aH If omitted, output goes to SYSSOUTPUT. 
384 637 PB_ROWS COptional]. If proviied, it is filled in with 
383 638 the number of rows on the physical device. 

$s os? PB_COLS COptional]. If provided, it is filled in with 
3 oe 

3 64 

3 644 

3 645 

3 646 

3 647 

3 648 

3 649 

3 650 
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KS - V 
EBOARD = Create 


i IMPLICIT OUTPUTS: 


i COMPLETION STATUS: 


SS$_NORMAL 
L18$_INSVIRMEM 


SMG$_PASALREX1I 
SMG$—WRONUMARG 


i SIDE EFFECTS: 
i NONE 
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asteboard 


Normal successful completion 

edges virtual memory to allocate needed 
uffer. 

Pasteboard already exists for this device 

Wrong number of arguments. 
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: 1416 1668 BEGIN 

3: 1417 1669 

3 1418 1670 BUILTIN 

3 1419 1671 NULLPARAMETER; 

; Hr 16r¢ 

> 1421 167 LOCAL 

: 1458 ore FS_LEN : WORD INITIAL (0), ! Length of filespec name to use. 
; 13S¢ 1926 FS_ADDR, ! Address of filespec name to use. 

> 1426 1678 STATUS, ! Status of subroutine calls 

: et 1679 

3 1428 1680 TERM_TYPE, ! terminal type 

3 1*¢2 1681 

: 1430 lone CLEAR_FLAG, ! TRUE means clear screen ; 
> 143) 168 : 

: 1636 ion PBID, ! Id of pasteboard being created. 

3 1434 1686 PBCB : REF S$PBCB_DECL; ! Address of pasteboard control block 
>; 1435 1687 ! being created. 

3: 1436 1688 

3 1437 1689 EXTERNAL ROUTINE 

3: 1438 1690 

3 1439 1691 SMGSSERASE_PASTEBOARD, 

; re } O38 SMGS$OUT_OF _BAND_HANDLER; 

3 148 199¢ SSMGSVALIDATE_ARGCOUNT (1, 5); ! Test for right no. of args 
3 1444 1696 SSMGSGET_NEXT_PID ( PBID); ! Allocate a new PBID 

3: 1445 1697 

> 1446 1698 '¢ ¢ 

> 1447 1699 ' Decide what output device is to receive the the output of this 

3 re 1 ° pasteboard. 

3 1639 if ‘ FS_LEN XCHARCOUNT (‘SYSS$OUTPUT'); ' Assume default 

3: 1452 1704 

3: 1455 1705 

> 1454 1706 

3; 1455 17 

: 1456 17 

3 1457 17 

: 1458 17 

3: 1459 17 

: 1460 17 

: 1461 17 

: 1636 17 

3: 14 17 

3 1 17 

. 7 17 

s 1 17 

s 1 17 

3 1 17 

s 1 17 

: 1 17 

s 1 17 

3; 1 17 


RIP DPPNIPNININDNNININI WI & & UAPININININYNINIPINNINININININININININYINPONPONPYNINYNPONNPNgNyNoNoNnof%y 


FS"ADDR = UPLIT (BYTE (*SYS$OUTPUT')5; | 
ca NULLPARAMETER (OUT_DEVICE) 
7 BEGIN ! Yeor~supel ied tietess 
8 IF NOT (STATUS = LIBSANALYZE_SDESC_R2 ( .OUT_DEVICE ; 
9 FS_LEN, FS_ADDR)) 
10 HEN 
11 RETURN ( .STATUS); : 
1g ND; ! User-supplied filespec 
14 '¢ 
6 15 ! Create a PBCB. Allocate buffers, etc. : 
ree: 1 Extract the necessary device attributes and store in PBCB. 
466 18 STATUS = SMGSSSETUP_TERMINAL_TYPE ( 
467 19 -FS_ADDR, ! filespec addr 
468 0 -FS_LEN, ' Len of i lespec 
ry 1 TERM _TYPE, ! Gets terminal type 
re § PBCB); ! Address to receive address of PBCB 
472 Si IF NOT .STATUS 


c 


Bee Oe Se ee Be Be Se Be See Se Se Se Se Be Be Oe Se Be ee Se Se SH Se SESH SH Se Se SESH See ee Se Se SSeS Se ee teas 


SSSDISPLAY LIN S 


*- oO 
vu oO 


Dk ek el Sel el ek Del Sel el Sk Dk De le ae Dek ee ee ae a 
DOO OO ODWOWOWWOMWMOWWONNNAN~S 
MEW CO OONAUESWWN ("OO OONOULSW 


0 
; 3 1725 : 
3 % 17 § F 
; 1 17 5 
3 1728 4 : 
3 7 1729 F 
3} 1730 : 
: 3 1731 $ 
2 ¥ 17 ¢ 3 
3 3 17 : 
3 1 1734 F 
3; 3 1735 F 
3 3 1736 § $ 
3; 3 1737 3 
; 1738 5 : 
; 7 1739 “8B. : 
: } 1740 2 (.PBCBC BL EQL HARDCOPY ); 3 
: 1 1741 2 F 
2 9 he - 14 : 
3 (1 1745 2 ! Loop through all the pasteboards we currently have trying to find : 
: 9 1744 2 ! one whose associated resultant name string is the same as the one we ; 
3:1 1745 2! just created. ¢ ; 
21 1746 2! If we can f.nd one, we have just created a 2nd pasteboard for the same ; 
3; 1 1747 2! physical device and we want to get rid of the pasteboard we just ; 
; 1496 1748 2 ! created and return to the caller the id of the pasteboard that already ; 
; 1497 1749 § : exists for this device. F - : 
3 1498 1750 ! We do this only if the output device is a terminal. : 
3 1499 1751 2! If the output device is a file, we assume that the user wants ; 
; 1500 1728 2 ! to create a new file for each pasteboard he creates. ; 
; 1501 1755 2 !- é 
: 1502 1754 2 3 
>; 1503 1755 IF NO? .PBCB CPBCB_V_RMSJ : 
; 1504 1728 T 3 
; 1505 175 INCR I FROM 0 TO .PBD_L_COUNT -1 : 
: 1506 1758 ¢ DO ; 
3; 1507 1759 BEGIN ! Loop thru pasteboards . 
>; 1508 1760 3 LOCAL F 
: 1509 1761 3 SEARCH_PBCB : REF $PBCB_DECL; ! Addr of pasteboard - 
; 1510 1768 ; ! control blocks that : 
3 1511 176 ! we are inspecting. : 
3 aig 1764 3 3 
s 151 1765 3 IF (SEARCH_PBCB = .PBD_A_PBCB C.1]) NEQ 0 : 
3 1514 1766 3 THEN ‘ : 
3; 1515 1767 4 BEGIN ' A valid pasteboard address : 
3 1316 1768 4 IF .SEARCH_PBCB CPBCB_W_DEVNAM_LEN] EQL : 
3; 151 1769 4 -PBCB PBCB_W_DEVNAM_LEN : 
: 1518 1770 4 N : 
3; 1519 ti BEGIN ! Lengths match : 
: 1520 Ae 5 IF CHSEQL ( .SEARCH_PBCB CPBCB_W_DEVNAM_LEN],  ! Length 3 
3: 1521 1773 «5 SEARCH PBCB CPBCB_T_DEVNAM], ' addr 3 
3 1356 1774 «(5 -PBCB bPSC¥_ Bs VAR LENJ, ' Length 3 
3 95 1775 «5 PBCB CPBCB_T_DEVNAMJ) ! addr : 
3 15246 1778 5 THEN : 
3; 1525 1777 6 BEGIN ! Match found : 
: 1358 1778 6 LOCAL ’ 
3; 15 1779 6 STATUS; ' Local status of subr. calls F 
; 1528 1780 6 : 
3; 1529 1781 6 '¢ : 
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SMGRTL.SRCJSMGDISLIN.B52;1 (10) 


BEGIN 
PBD_V_ PB_AVAIL C.PBID] = 0; ! Release PBID number 
A (STATUS) 


+ 
: Decide whether we want to handle this output device ourselves 

: or use RMS to handle it. We use RMS if the output device is | 

! not a terminal. We also use RMS if the output device is a terminal, 
! but one we can't handle, such as a hardcopy terminal. 


PBCB CPBCB_V_RMS] = (.PBCB NEQ DC$_TERM ) OR 


PBCB_B_CLASS] 
(;PBCBLPBCB-B-DEVTYPE] EQL UNKNOWN ) OR 
PBCB~B-DEVTYPE J 


SMGSDISPLAY_LIN SMGSDISPLAY 
1-096 SMGSCREATE "PA AST 

530 78 
231 78 
5 ¢ 78 
5 78 
534 78 
535 78 
536 78 
537 78 
538 79 
539 79 
540 79 
541 79 
et§ 79 
54 79 
544 79 
545 79 
546 9 
547 9 

8 

9 

50 

51 

52 

53 

54 

55 

56 
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END; 


END; 


REI NOOR: Wa 
p-1984 SMGRTLS 


! This physical device already has a pasteboard 

' associated with it. 

! Get rid of the one we just created. 

' First ag 0 PBID number we consumed -=- we won't 
be using it 


ee eee C.PBIDJ = 0; 


ss-32 V 


Page ba 
Reis tant: . 


ats af 
asteboard IN.B52;1 


+ 
Second deallocate the WCB that got allocated. 


iF .PBCB CPBCB_A_WCB] NEQ 0 


IF NOT (STATUS = vated 4d wee OCATE_wcB ( 
B CPBCB_A_wCB]) ) 


HEN 
RETURN (.STATUS); 


14 
Next release output buffer. 


iF .PBCB CPBCB_A_OUTPUT_BUFFER] NEQ 0 


IF NOT ( STATUS = LIBSFREE_VM ( 
ZREF (.PBCB CPBCB W_OUTPUT_BUFSIZ]), 
PBCB CPBCB_ A_OUTPOT_BUFFERJ) ) 


RETURN (.STATUS); 


14 
Finally release the PBCB itself. 


iF NOT (STATUS = LIBSFREE_VM ( %REF (PBCB_K_SIZE), 
PBCB)) 


EN 
RETURN (.STATUS); 


1+ 
i Return as an id the id of the one that already 
‘ exists. 


{NEW_PBID = 


'¢ 
' If caller Ppayestes number of rows and columns on 
i. device, tell h 


iF NOT NULLPARAMETER (PB ROWS) 
THEN .PB_ROWS = .SEARCH_PBCB CPBCB_B_ROWS); 


IF NOT NULLPARAMETER (PB COLS) 
THEN .PB_COLS = .SEARCH_PBCB CPBCB_W_WIDTH); 


RETURN ( SMG$_ PASALREXI ); 
END; '“Match found 
! Lengths match 
! A valid pasteboard address 


.SEARCH_PBCB CPBCB_L_PBID); 


(10) 
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END; ' Loop thru pasteboards 
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xe 
ne 


14 
: If we fall out of loop, none of our current pasteboards are pasted to 
' the same device. Cont inue with the creation process. 

i. Store pasteboard id in the PBCB itself. 


PBCB CPBCB_L_PBID] = .PBID; 


+ 

Store the original name (that the user specified) for this device 

in the PBCB. This name may include a filename as well as a 

device name. 

First we allocate virtual memory for this buffer and 

_then we store the length and address in the PBCB for future reference. 


ET_VM(XREF(.FS LEN) PBCBLPBCB_A_OUTNAM]) ; 
US” THEN RETURN is! ATUS); 

OUTNAM_LENJ=, 

LEN, .FS_ADDR, FSaEN A_OUTNAM]); 


IF NOT <1 
PBCBLPBC 
CHSMOVE (. 


i¢ 

i if device is a terminal, assign a channel to it. 

i If the device is not a terminal, at oceee a FAB and RAB 
7 and open the file for output using R 


IF ag Ve RMS] 
THEN BEGIN” ~! use RMS to open output 


14 
7 Allocate a FAB and RAB to be used to talk to this file. 


STATUS=LIBS$GET_VM(%REF (FABSC_BLN) ,PBCBLPBCB_A_FAB]); 
IF NOT .STATUS THEN RETURN . STATUS; 


STATUS= LIBSGET_VM(%REF (RABSC_BLN) ,PBCBLPBCB_A_RAB)); 
F NOT .STATUS THEN RETURN .STATUS; 


Llocate a record buffer. 

his will be one byte larger than the width of 

he pasteboard because sometimes we will prepend 
formfeed to the record. 


FWNM-OOCONOUEW 
on > 


STATUS=LIBSGET_VM(XREF ( -Pecutrace W_WIDTHJ+1) ,PBCBCPBCB_A_RBF J); 
IF NOT .STATUS THEN RETURN .STATUS;~ 


le 
Initialize the FAB and RAB. 


ee ee el me ee eB a et eB Dd a ad ed ad od od w 


= ,PBCBCPBCB_A_FAB), 
= "SMGOUTPUTILTS', ' default filename 
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Be Be Se Se Bs Be Oe Oe Be Se Se Se Se Se Be Se Be Ge SH Se Be SHS Se SHH Se Ge Be Se Ge Ge Be HSH Se Se Se Se FE SH Se Se Fe Se Se Se Se Se Sse Se sees te Seesas 


BBE AMAA 


Wr OC OCOnOu 


$FAB_INIT( FAB 
DNM 


v 
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>v 


ELSE 


D 15 

S$ = Virtual Displa’ Linkages jp=300= 1386 00: 63 ¢ AX-11 Bliss-32 re ae Page 46 
BOARD = Create Pas eboard 14-Sep-1984 135:09:4 SMGRTL.SRCJSMGDISLIN.B32;1 (10) 

CT) = .PBCB, ! why not? pass the PBCB as user context 

FAC = PUT, ! write access only 

FNA = .FS_ADDR, 

FNS = .FS_LEN, 

ORG = SEQ, ' sequential file 

FOP = $Q0, ' sequential operations only 

RAT = CR ! carriage control 

RFM = VAR : variable length records 

MRS = .PBCBLPBCB_W_WIDTHJ+1); ! max record size 
$SRAB_INIT( RAB = .PBCBCPBCB_A_RAB], 

CTX = .P ! — the PBCB as user context 

FAB = )PBCBCPBCB_A_FABJ, 

RBF = .PBCBLPBCB_A_RBFJ, : 

RAC = SEQ); ' sequential output 


14 
Open the file for output. 


STATUS=$CREATE( FAB = .PBCBCPBCB_A_FAB]); 
IF NOT .STATUS THEN RETURN .STATUS; 
\4 


Connect a record stream to the file. 


STATUS=$CONNECT( RAB = .PBCBLPBCB_A_RAB]); 
IF NOT .STATUS THEN RETURN .STATUS; 


END ! use RMS to open output 

BEGIN ! assigning channel 

LOCAL NAME_DESC : VECTORCG2), ' Fixed length descriptor 
ASYNT_EFN : LONG, ' Longword to hold efn 
TTIOSB : VECTORC4,WORD],! I0SB for SENSE MODE 
CHARBUF : BLOCK(C12,BYTEJ;! 12-byte characteristics buffer 


1+ 
' Create a fixed length descriptor for our device name string 
for use by S$ASSIGN. 


DEVNAM_LEN); 
DEVNAMI; 
1+ 


i Assign the channel. : 
Put the resulting channel number in PBCBCPBCB_W_CHAN). 


STATUS=$ASSIGN( DEVNAM = NAME _DESC, 
= PBCBCPBCB_W_CHAN)); 
IF NOT .STATUS THEN RETURN .STATUS; 
1+ 
! Assign an asynchronous event flag. 


} 
} 


ee Se te Oe ee Oe Be Oe Oe Bee ee ee Be Se Oe ee Se Se Se Se Se Se ee SHS Se Se Bt Be ee 
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le 
TATUS=LIBSGET_EF (ASYNC_EFN); 
F NOT .STATUS"THEN RETORN .STATUS; 


+ 
! Store the value into a byte in the PBCB. 
PBCB CPBCB_B_ASYNC_EFN] = .ASYNC_EFN; 


° nn Q10 to get additional characteristics 
nterest. 

nore everything returned in the characteristics buffer. 
e already got *hat stuff.) 

e 1/0 status biuck has neat things of interest. 


~+--0O 9 
s>f10 -0 


STATUS=$Q10W( CHAN 
FUNC 
10SB 
P1 


PBCBCPBCB_W_CHAN], 
O$ SENSEMODE, 
TIOSB 

HARBUF , 

2); 


vuvV 


I 
T 
C 
1 


P2 
IF NOT .STATUS THEN RETURN .STATUS; 
IF NOT .TTI 


0] THEN RETURN .TTIOSB(O]; 
PBCB CPBCB_W_SPEED] = BC) 

PBCB CPBCB_W_FILL] _ = .TTIOSBL2] 

PBCB CPBCB_B_PARITY] = .TTIOSBL3] 

END; ! assigning channel 


=O 


Set up our exit block which is contained within the PBCB. 
This exit block is used to establish an exit handler for 

this terminal. When the exit handler is called, 

it will flush the output buffers. : 3 
This guarantees that the user will see all his output even if 
his program exits and he doesn't manually flush the buffers. 


PWN OC VONAUVUE WN ("OVO ONAUSWN —OODONAUSWR OVO ONAUSWNR 


PBCB CPBCB_A_EXIT_ADDR] = SMG$SPBCB_EXIT_HANDLER; : 
! Address of our exit handler | 
PBCB CPBCB_B_EXIT_ARGCNT]J = 2; ' Our exit handler gets called with 
! two arguments. 
PBCB CPBCB_A_EXIT_RSN] = PBCB CPBCB_L_EXIT_REASON); 
'“The first argument is the address 
! of the longword to receive the 
exit reason. This senquoré appears 
elsewhere in the PBCB (not in 
the exit block). . 
The second argument is the address 
of this PBCB. This is needed 
because there are many PBCBs and 
one exit routine serves them all. 
There is a separate exit block for 


BEER EES SPAWN ANIA NININININIDY 2 2 OO OOM SM OOOCOOCOOO Co 


PBCB CPBCB_A_EXIT_PBCB) = .PBCB; 


ek ek kd a dd tO 
Se te et ee ee te i be i ee i ee i ee ee ee i ee | 
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ee ee ee ee ee ee ee re ee Pe Pe re ree ere re rere rere rere rere rere ree rere rere rere re rere rere re rere rere Ts 
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F 15 

SMGSDISPLAY_LIN SMGSDISPLAY_LINKS = Virtual Display Linkages 16-Sep-1984 00:29:2 AX-11 Bliss-32 V4.0-74 P 48 
1-096 SMGSCREATE_PASTEBOARD = Create asteboard: 1e-8ep-19 4 99:89 :8 SMGRTL.SRCJSMGDISLIN.B32;1 29° (16) 

it ! each pasteboard. 

01 ' 

$o1 Establish the exit handler, using the exit block just created. 

201 

201 STATUS=$DCLEXH(DESBLK=PBCB CPBCB_R_EXIT_BLOCK]); 

shi IF NOT .STATUS THEN RETURN .STATOS; 

201 + 

202 Now we do an incredible strange hing, 

202 We build a 10-byte routine in the PBCB to service out-of-band ASTs. 

50S The routine has the form: 


0000 entry mask 
FA CALLG 
6C (AP) 


oF absolute pe = Ahk hg, 
concn’ * agravers address of SMGS$$OUT_OF _BAND_HANDLER 


| 

i 

i 

i 

i 

' 

i 

i 

i 

i 

i 

i 

; Symbolically, the routine looks as follows: 

a ee = 

EXTERNAL ROUTINE SMG$SOUT_OF _BAND_HANDER : ADDRESSING_MODE (ABSOLUTE) ; 
' 
i 
' 
' 
' 
i 
i 
i 
i 
i 


BUILTIN AP,CALLG; 
See CALLG(.AP,SMG$$OUT_OF __BAND_HANDLER) ; 


However, we don't actually create this routine in BLISS and then 
move it into our structure, because we can't be guaranteed that 
BLISS will continue to generate the same code in future releases. 
Thus we create the entire routine ourselves. : 

This code would have to change if we ever tried to run this 

on a machine with a new arhitecture. 


SSNS SNS NSS SS NS SNS SSNS SSNS SSS SS OO 


DOO O0 00000 O09 0900 09 09 00 09 09 09 09 SI SINS NINI NIN NN NINA AAAAAAAOOU 
OONAW EWN 9S OONAUNEWN OO OODNAUESWN SOO ONAU EWR —OWO0 


ek ee ed ed ed dd dd dd = dd 5 dd 
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POPIPIPININONINPONINININYINININYNININININININININININININININININININNN NNN NPoNoNPoNny 
oe eee ele lelelejlejeleolejlelelejleleilelelelelelelelelolelelelelelelelelololololololo) 
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PBCBCPBCB_W_ENTRY_MASK] = %X'0000'; 
PBCBCPBCB_B_CALLGJ = 2x ‘FAS; 
CBLPBCB_B_REG_A = 2X ‘6C'; 

pernhee ~B_ABSJ son °*; 
800 PBCBLPBCB_A_BAND_HANDLER] = SMG$SOUT_OF __BAND_HANDLER; 
801 PBCBCPBCB_B_RETJ = 2X '04'; 
802 
803 . : 
804 : Since all went well, we can now adjust the count of how many PBCB's 
ous we have and plug its address into the pasteboard directory. 
rt PBD_L_COUNT = .PBD_L_COUNT + 1; 
809 PBD_A_PBCB (.PBID) = .PBCB; 
a . 

+ 

aig Initially clear the screen (unless we are asked to preserve it). 
814 


n” 
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- Create Pasteboard 14-Sep-1 


-O 


FLAG 
oT WOT PARAMETER (PRE 
CLEAR_FLAG=NOT ..P 


CLEAR_FLAG 


K 
EBO 
EAR 
NO 
N 


Y LIN 
AST 
CL 
IF SERVE 
THE RESER 
If . 
THEN 

BEGIN 

STATUS=SMGS$SERASE_PASTEBOARD( .PBCB) ; 


‘d NOT .STATUS THEN RETURN .STATUS; 


ELSE 
BEGIN ! es prerene we cleared the screen. 
LOCAL : REF SWCB_DECL; 
WCBS. PBCBLPBCB.. A_wCB); 


CHSFILL(XC' ‘+ HCBCUCB L_BUFSIZE],.WCBCWCB_A_TEXT_BUFJ); 

CHSFILL(XC' *, -WeBEWCB L“BUFSIZEJ.. -WEBEWCBATSCR TEXT_BUFJ); 

CHSFILL(O, WCB [ “BUF SIZE]..WCBLWCB_A-ATTR_BUFI); 

CHSFILL(O, | .WCBCWCBTL~BUFSIZEJ..WCBLWCB-A-SCR_ATTR_BUFJ); 
a0 


IF .WCBCWCB_A_CHAR_SET_BUFJ NE 
THEN 

BEGIN 

CHSFILL(O, .WCBCWCB_L_BUFSIZEI, .WCBCWCB_A_CHAR_SET_BUF I); 
IF .WCBCWCB_A_SCR_CHAR_SET_BUF] NEQ 0 
THEN 


BEGIN 
CHSFILL(O, .WCBCWCB_L_BUFSIZE], .WCBLWCB_A_SCR_CHAR_SET_BUFJ); 
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9 ‘+ 
8 q The physical cursor moves to (1,1). 
: 
0 ' wCBCWCB_W_CURR_CUR_ROWJ=1; 
0 i WCBCWCB-W-OLD_CUR_ROW] =1; 
0 ' wCBCWCB_W_CURR_CUR_COLJ=1; 
O6 i wCBCWCB-W"OLD_ tur OL) =1; 
08 '+ 
% i _The iine characteristics get set back to 0. 
11 
12 CHSFILL(O,.WCBCWCB_W_NO_ROWS)+1,.WCBCWCB_A_LINE_CHAR]); 
1? CHSFILL(O,.WCBCWCB_W_NO “ROWS J+1,.WCBLWCB— A-SCR_CINE_CH AR}); 
15 END; ' Just pretend we cleared the screen 
19 S44 
2 3 ii : f caller is interested in number of rows and columns on device, tell 
im, 
20 ie 
21 IF NOT NULLPARAMETER(PB_ROWS) THEN .PB_ROWS = .PBCB CPBCB_B_ROWS); 
$§ IF NOT NULLPARAMETER(PB_COLS) THEN .PB_COLS = .PBCB PBCB-W-WIDTHI; 
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50 00000000' 


5A 00000000" EF 00000000° 
00 00000000" 


000000006 
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LAY_LINKS = Virtual Dis 


| SMGSDISPLAY_LIN SMGSDISP 

1-096 SMGSCREATE E_PA ASTEBOARD - Create 
; ere 124 

; 187 125 

> 1874 126 

>; 1875 127 -NEW_PBID = . 

; 1876 2128 

: 1877 $192 

; 1878 2130 


S 
E 
14 
; Return the new pasteboard id to caller 
; : 
1 


RETURN (SS$_NORMAL) 
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! Routine SMGSCREATE_PASTEBOARD 


SSOUTPUT\ 
GOUTPUT.LIS\ 


Y 
M 
G$SOUT_OF __BAND_HANDLER 
SSCREATE, SYSSTONNECT 
Sere be SYS$Q10W 
S$DCLE 

G$ 

R 


‘ PASTEBOARD, Save R2,R3,R4,R5,R6,- ; 
" R11 


D 
CREA 
8,R9, 

§p 

_CEN 

z, (AP). DIFF 

FF, 

MG$_WRONUMARG, RO 

, PBD_L_COUNT, RO 

#16 


2 
\S 
\S 
SM 
SY 
SY 
SY 
SM 
R7 
Bs 
FS 
#1 
DI 
1$ 
aS 
#1 


#SMG$_TOOMANPAS, RO 


ZERO, PBD_K_MAX_PB_BY_REF. PBD_V_PB_AVAIL, - 


PBID. pep V_PB_AVAIL, 3$ 
#10, FS_LEN™ 
P. hia, "#5 _ADDR 
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ISP LINKS = Virtual prepiey Linkages 
SMGSCREATE_PASTEBOARD = Create Pasteboard 
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SMGSDISPLAY_LIN SMGSDISPLAY_LINKS = Virtual Display Linkages 16-Sep-1984 9:2 AX-11 Bliss-32 V4.0-74 p 
1-096 SMGSCREATE_PASTEBO ARD - Create Pasteboard® 14 attr 0: 89; 8 SMGRTL.SRCJSMGDISLIN.B32;1 age 45 
10 BC SA 3 i a SOV ouL t3¢ searcn PBCB), aPB_COLS + 1833, 
8 000000006 8F B6 iE 19$: MOVL #SMG$_PASALREXI, RO ~ + 1835 
02 56 57 F2 00168 20$:  AOBLSS R7, I, 21$ + 1757 
03 (11 0016 BRB ecg : 
FF62 31 00171 Z18: BRW 12$ : 
57 08 AE DO 00174 2$:  MOVL  PBCB, R7 + 1846 
16 A? 5A DO 00178 MOVL eID 20(R7) : 
00B0 C7 9F 0017C PUSHAB 176(R7) + 1856 
04 AE 58 3C 00180 MOVZWL FS_LEN, 4(SP) : 
04 A oF go 185 PUSH4SB 4(5P) : 
000000006 00 02 FB 00187 CALLS #2, LIBSGET_VM : 
59 50 DO 0018E MOVL RO, STATUS : 
SF 59 €9 00191 BLBC STATUS, 24$ + 185 
0064 (7 58 BO 00194 MOVW FS_LEN, 228(R7) + 185 
00B0 07 6B 58 28 00199 MOVC3 FS"LEN, (FS_ADDR), 176(R7) + 185 
03 0000 «7 03 £0 0019F BBS #3- 208(R7)> 23$ + 186 
00D3 31 OO1A5 BRW 27$ : 
00E8 C7 9F 001AB8 23$:  PUSHAB 232(R7) + 1874. 
04 AE 50 8F 9A OOITAC MOVZBL #80, 4(SP) - 
04 AE 9F 00181 PUSHAB 4(SP) : 
000000006 00 02 FB 00184 CALLS #2, LIBSGET_VM : | 
59 50 DO 00188 MOVL RO, STATUS : | 
32 59 £9 001BE BLBC STATUS, 24$ > 1875. 
OOEC C7 OF 001C1 PUSHAB 236(R7) + 1877 
04 AE 44 8F 9A 001C5S MOVZBL #68, 4(SP) : 
04 AE 9F OOICA PUSHAB 4(SP) : 
000000006 02 FB 001CD CALLS #2, LIBSGET_VM é 
59 50 DO 00104 MOVL RO, STATUS 3 
59 €9 00107 LBC STATUS, 24$ : 1878 
OOFO C7 9F OO1DA PUSHAB 240(R7) : 1887. 
04 AE 5A A7 3C¢ 80106 MOVZWL 90(R7), 4(SP) 3 | 
06 AE D6 OO1E INCL 4(SP) ; 
04 AE 9F 001E6 PUSHAB 4(SP) : 
000000006 00 02 FB OO1E9 CALLS #2, LIBSGET_VM : 
59 50 DO 001FO MOVL RO, STATUS 2 
70 59 €9 OO1F3 24$:  BLBC STATUS, 25$ > 1888 | 
56 00E8 67 DO 001F6 MOVL  232(R75, R6 > 1904 | 
0050 = 8F 00 6E 90 2c 0018 MOVCS #0, (SPS, #0, #80, (R6) : 
66 5003 8F B0 00 86 Vw #20483, (R6) : 
04 Ab 40 8F 9A 00208 MOVZBL #64, 4(R6) : 
16 Ab o4 90 00 0D OVB #1, 22(R6) : 
18 A6 7 pO 00211 MOVL  R7. 24(R6) : 
1D Ab 0200 8F BO 00215 MOVW #512, 29(R6) : 
1F a6 02 90 00218 MOVB #2, $1(R6) : 
2c Ab 5B DO 0021F MOVL FS ADDR, 44(R6) ; 
30 Ab Focc sé F 3 00 3 MOVAB P.RAB, 48(R6) ; 
34 OA 58 9 0 9 MOVB FS_LEN, 52(R6) ; 
35 A 0D 90 6 D MOVB #13, 5$(R6) : 
36 AG SA OA? 01 Al 00231 ADDW3 "90(R7), 54(R6) : 
58 O0OEC C7 DO 00237 MOVL SSbcRT) 6 : 1910 
0044 &F 00 6E 09 2c 0 i MOVCS #0, (SPS, #0, #68, (RB) ; 
68 4401 rf BO 00244 MOVw #17409, (RB) ; 
18 «AB 7 DO 00249 MOVL  R7, 24(R8) : 
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; Routine Size: 


1879 


56 
56 
56 
56 


56 


56 


56 
56 


SMGSCREATE "BAS TEBOARD = 


982 bytes, 
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Routine Base: 


lay Linkages 
esteboere 
6 
1F 
14 Ac b 
«HR 
29 Pg 6 
57 DD 00 
4 FB 00 
0 b8 0 
59 €8 00 
59 dO 00 
04 
08 A? DO 
28 AD D0 00 
00 2C 00 
08 69 00 
00 2C 00 
14 B69 00 
00 2C 00 
oc B9 00 
00 2C 00 
18 B9 00 
10 AY D5 00 
07 1300 
00 2C 00 
10 69 00 
1¢ AY D5 00 
07 13 00 
00 2c 00 
1¢ 3=6B9 00 
02 a9 3C 00 
56 D6 00 
00 2C 00 
2c Ss «BY 00 
00 2C 00 
30 =6—B9 00 
6C 91 00 
OA 1F 00 
Oc AC B 00 
05 13 00 
5F A? 9A 00 
6C 91 00 
10 AC DS 00 
As E88 
SA A? 3C 00 
5A 00 00 
01 dO 00 
04 00 


_SMGSCODE + O6BF 


4-Sep-1984 


30$: 


31$: 
32$: 


33$: 


34$: MOVZWL 
NCL 
mMOoVCS 
MOVCS 
35$: CMPB 


36$: 


37$: MOVL 
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‘38 AX-11 Bliss-32 v4.0 
14 SMGRTL’ SRCISMGDISLIN. 5 2:1 
(AP), #5 
30$ 
OcAP) 
aPRESERVE 3° EN. FLAG, CLEAR_FLAG 
CLEAR FLA 
#1, SMGSSERASE_PASTEBOARD 
RO, STAT us 
STATUS, 5$ 
STATUS, RO 
8(R7), WCB 
40 (wc) R6 
#0, (SPS, #32, R6, a8(WCB) 


#0, (SP), 
#0, (SP), 
#0, (SP), 
16 (WCB) 
#0, (SP), 
qpcuces 
#0, (SP), 
2(WCB), R6 
#0, (SP), 
#0, (SP), 
(Ape #3 


#32, R6, 320(WCB) 
#0, R6, a12(WCB) 
#0, R6, a24(WCB) 


#0, R6, a16(WCB) 
a28 (WCB) 


#0, R6, 


#0, R6, 
#0, R6, 


044 (WCB) 
a48 (WCB) 


. @PB_ROWS 
4 


R7), aPB_COLS 
D aNEW_ PBID 
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SMGSDISPLAY_LIN SMGSDISPLAY_LINKS = virtual Display Linkages 16-Sep-1984 9: AX-11 Bliss-32 v4.0 Page 55 
1-096 SMGSDELETE_PASTEBOARD = Delete asteboard: 14- Sep-1986 99: 9 88 SMGRTL.SRC SMGDISLIN. "3 2;1 : (11) 
XSBTTL "SMGSDELETE _PASTEBOARD = Delete Pasteboard’ 
GLOBAL ROUTINE SMGSDELETE_PASTEBOARD ( PBID, CLEAR_SCREEN_FLAG ) = 
' 
i 


ae 
FUNCTIONAL DESCRIPTION: 


This routine terminates all use of a given physical display. 
It deallocates the pasteboard control block and all its 
substructures. It gets rid of the event flag and the channel 
number. It removes any associated exit handler. 


CALLING SEQUENCE: 


ret_status.wlc.v = SMGS$DELETE_PASTEBOARD ( PBID.rl.r 
C.CLEAR_ SCREEN_FLAG.rl.rJ) 


W000 0O0WMMOMWOOOOM CCD 


: { FORMAL PARAMETERS: 


S332 
VEWN 0 OONAUE WO OONOUES WHS 


PBID.rl.r Pasteboard id of pasteboard. 


CLEAR_SCREEN_FLAG.rl.r ¥ to 1 to oy 8 the screen, 
to keep it as 
The default is to tear the screen, 


! IMPLICIT INPUTS: 


SP 
LE 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
: 3 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
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906 

907 NONE 

908 

Ps IMPLICIT OUTPUTS: 

911 NONE 

aig 

a COMPLETION STATUS: 

915 SS$_NORMAL Normal successful completion 
916 SMG$_WRONUMARG Wrong number of arguments. 
917 $ xyz errors from $DASSG 

918 LIBS_xyz errors from LIBSFREE_VM or LIBSFREE_EF 
4 SMG$_ xyz errors from SMGS$FLUSH_BUFFER 
921 SIDE EFFECTS: 

922 

925 NONE 

924 
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1-096 SMGSDELETE_PASTEBOARD = Delete Pasteboard 14-Sep-1984 13:09:4 SMGRTL.SRCJSMGDISLIN.B32;1 (12) 
: 1926 176 BEGIN 
: 1927 17 
: 1928 178 BUILTIN 
: 1362 179 NULLPARAMETER; 
; 1930 180 
: 13¢) 181 LOCAL 
3 19 ¢ 136 
: 37 \3? STATUS, ! Status of subroutine calls 
: 1332 18s ; CURR_PP : REF $PP_DECL, ! Pasting packet pointer 
3 es t4 + t4 ; wCB : REF $WCB_DECL, ! Window control block. 
; 1939 189 PBCB : REF SPBCB_DECL; ! Address of pasteboard control 
; 1940 190 2 ! block 
3 1941 2191 2 
3 Leak 3 $138 EXTERNAL ROUTINE 
: 194 219 
> 1944 2194 SMGSSFORCE_SCROLL_2EG, 
> 1945 2195 2 SMGSSERASE_PASTEBDARD, 
3 1946 2196 2 SMGSSFLUSH_BUFFER, 
: af 4 $195 2 SMGSCHANGE _PBD_CHARACTERISTICS; 
: 4 ih 44 SSMGSVALIDATE_ARGCOUNT (1, 2); ! Test for right no. of args 
3; 1951 2201 SSMGSGET_PBCB (.PBID,PBCB); ! Get address of PBCB 
3 1326 $508 
; 195 220 + : 
3 1338 $$0e 2 } Batch up the unpastes, so that the whole screen disappears at once. 
2 1338 $508 IF NOT (STATUS = SMGSSBEGIN_PASTEBOARD_UPDATE_R1(.PBCB)) 
; 1958 2208 RETURN (.STATUS); 
3; 1959 2209 
: 1960 2210 + ‘ ; 
: 100) $s) 2 Walk chain of all DCB's pasted to this pasteboard and unpaste each. 
; 1968 2318 CURR_PP = .PBCB CPBCB_A_PP_PREV]; 
> 1964 2214 WHILE .CURR_PP NEQ PBCB~CPBCB_A_PP_NEXT] 
3; 1965 $512 DO 
: 1966 216 BEGIN ! Walk chain 
: 1967 $sie LOCA 
3; 1968 218 cB 3 4 $DCB_DECL, ! Address of DCB involved 
: 1968 $}8 PP_BASE : REF $PP_BECL; ' Base addr of this PP 
: 1971 3 1 PP_BASE = .CURR_PP = PP_PBCB_QUEUE_OFFSET; ! Since queue header 
: 1978 ¢ ' not at top of 
3; 197 § ' structure. 
3; 1974 4 DCB = .PP_BASE CPP_A_DCB_ADDR]; 
3; 1975 $$? 4 IF NOT (STATUS = SAGSSUNPASTE_VIRTUAL_DISPLAY ( 
: 1976 2 $ 4 .D ! DCB involved 
> 1977 227 4 :PBCB)) i PBCB involved 
; 1978 : THEN 
3 + 1 | RETURN (.STATUS); 
; 1981 31 CURR_PP = .PP_BASE CPP_A_PREV_PBCB]; ! Step to next PP 
: 1982 2232 2 END; ' walk chain 
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-096 SDELETE PASTEBOARD ~ Delete Pasteboord® 12286871384 9336954 SMGRTL SREISMGDISLIN.B32; 1 9 12) 
: 1382 3234 PBCBCPBCB_L_BATCH_LEVELJ=0 

; 1985 5 aia *: 

>; 1986 2256 1+ 

3 1987 2237 i If the user asked for the screen to be erased, then 

>: 1988 2238 2 ! release lock on pasteboard, force output o now=blank screen, and 
3; 1989 2239 2 | flush it out. 

; 1990 2240 2 i- 

; 1991 $60 2 IF NULLPARAMETER(CLEAR_SCREEN_FLAG) 

3 1236 2 4 3 OR_ (NOT NULLPARAMETER(CLEAR_SCREEN_FLAG) AND ..CLEAR_SCREEN_FLAG) 
; 199 2243 2 THE 

> 1994 2244 ; BEGIN ! clear screen 

; 1995 2245 

3; 1996 2246 3 !(b) IF NOT (STATUS = SMG$SEND_PASTEBOARD_UPDATE_R2(.PBCB) ) 
3; 1997 2247 3 !(b) 

3 1998 2248 3 !(b) RETURN (.STATUS); 

3; 1999 2249 3 

; 2000 2250 3 !(b) IF NOT ( STATUS = SMGSSCHECK_FOR_OUTPUT_PBCB(.PBCB) ) 

: 2001 2251 3 !(b) THEN 

; 2002 2252 3 !(b) RETURN (.STATUS); 

: 2003 2253 3 

; 2004 2254 3 !(b) IF NOT (STATUS = SMGS$FLUSH_BUFFER(.PBCB)) 

3; 2005 2255 3 !<b) N 

; 2006 2256 3 !(b) RETURN (.STATUS); 

; 2007 2257 3 

; 2008 2258 3 ! Note (b): Erase pasteboard should clear the screen and 

; 2009 ees7 3 ! we can bypass flushing since the user is deleting his 

; 2010 2260 3! pasteboard anyhow. 

3; 2011 2261 3 

; 2012 2262 3 PBCBCPBCB_V_BUF _ENABLEDJ=0; 

3 2013 2263 3 

3 2014 2264 4 IF NOT (STATUS = SMGSSERASE_PASTEBOARD(.PBCB) ) 

3; 2015 2265 3 HEN 

3; 2016 2266 3 RETURN (.STATUS); 

; 2017 2267 3 

: 2018 2268 3 '+ 

3; 2019 2269 3 ! Set terminal back to it's orignal width. 

3; 2020 2270 3 i This requires batching to be off. 

: 2021 2271 3 in 

3; 2022 2272 3 

3; 2023 2273 3 IF .PBCBCPBCB_W_WIDTH] NEQ .PBCBCPBCB_W_ORIG_WIDTH) 

3: 2024 2274 4&4 THEN 

3; 2025 2275 & STATUS=SMGSCHANGE PBD_CHARACTERISTICS(.PBID, 

: 2026 $58 4 Teer Ce PBCBCPBCB_W_ORIG_ WIDTHJ)): 
: 2027 e777 4 IF NOT .STATUS THEN RETURN .STATUS; 

: 2028 2278 4 STATUS= SMGS$$F LUSH BUFFER(.PBCB); 

3 2029 2279 4 IF NOT .STATUS THEN RETURN .STATUS 

: 2030 2286 3 END; 

; 2031 2281 3 

: 2032 2282 3 END ' clear screen 

3; 2033 2283 ¢ 

3 2034 2284 BEGIN 

3; 2035 2285 3 SMG$SFLUSH_BUFFER(.PBCB); 

: $039 2286 3 PBCBCPBCB_V_BuUF _ENABLED J=0; 

: 2037 2287 2 END; 

; 2038 2288 2 

3; 2039 2289 2 WCB=.PBCBCPBCB_A_WCB); 
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rtual Display Linkages 1 
- Delete Pasteboard 1 


14 

: If a scrolling region is set (other than the full screen), 
: then reset it now hy careful to leave the cursor alone 
i even though SET SCROLLING REGION may move it. 

: Note that if we never established any scrolling regions, 
the TOP_SCROLL Line will be 0. 


IF -PBCBLPBCB_W_TOP_SCROLL_LINE] NEQ 0 
AND (.PBCBLPBCB_W_TOP_SCROLL_LINE] NEQ 1 OR 
-PBCBLPBCB_W_BOT_SCROLL_LINE] NEQ .WCBLWCB_W_NO_ROWSJ) 
BEGIN ! Remove scrolling regions 
LOCAL 
FINAL_ROW, ! Final cursor row 
FINAL COL; ! Final cursor column 


'4 


S$SMGSGET_TERK_DATA(SET_SCROLL_REGION, 
.WCB CWCB_W_NO_ROWS); 


1+ 


Output BUFFER. 


IF .PBCBCPBCB_L_CAP_LENGTH] NEQ 0 
THEN 


BEGIN ! Issue the reset 
14 


: Remember where the user left the physical cursor, since 
changing scrolling regions might upset this. 


FINAL_ROW=.WCBCWCB_W_CURR_CUR_ROW]; 
FINAL_COL=.WCBCWCB_W_CURR_CUR_COLJ); 
STATUS = SMGS$SSOUTPUT(.PBCB,.PBCBCPBCB_L_CAP_LENGTH] 
. PBCBLPBCB~A~CAP~BUFFERJ); 

If NOT .STATUS THEN RETURN .STATUS; 
4 
Move the cursor back to where it was. 
IF NOT NULLPARAMETER(CLEAR_SCREEN_FLAG) 
AND NOT ,.CLEAR_SCREEN_FLAG. cS 

THEN BEGIN ! Restore final cursor position 


AX-11 Bliss- 
SMGRTL.SRCJS 


: Construct escape sequence (possibly null if not a supporting terminal) 
to set the hardware scro!l region to the full height of the screen. 
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SSMGSGET_TERM_DATA(SET_CURSOR_ABS,.F INAL_ROW, .F INAL_COL); 

STATUS = SMGSS$OUTPUT(. POC, Pacer pere L_CAP_LENGTH] 
CBCPBCB-A_CAP—BUFFERJ); 

IF NOT .STATUS THEN RETURN .STATUS 


END ! Restore final cursor position 


rorororororeroery 


4 
%, 


END ! Issue the reset 
END; ! Remove scrolling regions 


14 
te Get rid of our exit handler. Ignore ano handler found error. 


tp ieee crit ec tints R_EXIT BLOCK]); 
IF (NOT .STATUS) AND (.STATUS NEQ~SS$_NOHANDLER) 
THEN RETURN .STATUS; 


14 
Z Deallocate the WCB if there is one. 
IF .PBCBCPBCB_A_WCB) NEQ 0 
THEN BEGIN™ ~! getting rid of WCB 
STATUS=SMGS$SDEALLOCATE_WCB(.PBCBCPBCB_A_WCB)); 
PBCBCPBCB_A_WCBJ=0; ! safety 
IF NOT eraTus THEN RETURN .STATUS 


END; ! getting rid of WCB 


MO OONAUESWN—OCONOULSWR—-OUOOn 


'¢ 

i If there is a channel assigned, deassign it now. 

i This automatically cancels any 1/0 on the channel. 

i In particular, it removes any out-of-band ASTs that 
_ were enabled. 


IF .PBCBCPBCB_W_ CHAN] NEQ 0 
THEN BEGIN™ ! deassigning channel 


STATUS=$DASSGN( CHAN=.PBCBCPBCB_W_CHAN]); 
PBCBCPBCB_W_CHANJ=0; ! just in case we get called 


i again after returning an error 
IF NOT .STATUS THEN RETURN .STATUS 
END; ! deassigning channel 
‘4 


i Free the event flags no 
es Ignore error if it was alreedy free. 


IF ag 4 -B_EFNJ NEQ 0 
THEN 
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i- DELETE_PASTEBOARD = Delete Pasteboard 14- “Sep -1984 13:09:4 SMGRTL.SRC 
STATUS=L rice EF ( p MREEL: prececeece B_B_EFN]) ); 
IF (NOT .STA A (. NEQ LTBS_EF _ALRFRE) 
THEN RETURN 
PBCBCPBCB_B_ 
D; 
IF_.PBCBCPBCB_B_ASYNC_EFN] NEQ 0 
THEN BEGIN™ 
STATUS= LIBSFREE EF ( TREE PBCBCPBCB_B_ASYNC_EFN]) ); 
IF (NOT .STA TUS) A AND . STATUS NEQ Pre $_EF_ACRFRE) 


THEN RETURN .STA tus: 
pacetPack 6 ASYiNe_eFNI=0 


14 
} Free the output buffer now. 


IF _ .PBCBCPBCB_A_OUTPUT ~BUFFERI NEQ 0 

THEN BEGIN™ ~! freeing output buffer 
STATUS=LIBSFREE_VM(ZREF (.PBCBCPBCB_W_OUTPUT oe }, 

Pecece PBCB_ A_OUTPOT_BUFFERJ ) 

PBCBCPBCB_A_OUTPUT_BUFFERJ= 
IF NOT .STATUS THEN RETURN STATUS 
END; ! freeing output buffer 

14 

Free the output filename. 


IF_.PBCBCPBCB_W =QUTNN cee ba . 


Be Se Be Se Se Se Se Be Be Oe Se Be Oe Be Be Os Bs Oe Be FH Oe Be SHS Se OHH O68 Oe Oe Oe SHS OHH He Be ee 


COOOWNOA USWA 0 OONAUES WN 0 ODNOAUE WN $0 OONAUES WN (OC OONAUE WN" OVOONOUSE Ss 
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21 THEN BEGIN 
21 STATUS= LIBSFREE. mcxRER ‘. PBCBCPBCB_W 2 tee LEN] ), 
21 rf. BCP PBCB_ A_OUTNAM] ) 
21 wacetrecs W_OUTNAM_LENJ=0; 
21 IF NOT .STATUS NMER’ RETURN . STATUS 
21 244 ENDS 7 freeing outname 
21 244 
21 244 '¢ : 
: 2195 244 ' Close the output file, if there was one. 
3; 2196 244 od 
3: 2197 244 
3 2198 244 IF .PBCBCPBCB_A_FAB] NEQ 0 : 
3 2199 244 THEN BEGIN™ ~! Close output fits 
; 2200 245 STATUS=$CLOSE( FAB = BcBLPaCE A_FAB]); 
3; 2201 245 IF NOT .STATUS THEN RETURN .STATOS™ 
3; 2202 245 END; ' Close output file 
3 $307 245 
3; 2204 245 '¢ ’ 
3; 2205 245 ' Free the record buffer, if there was one. 
; 2206 245 i= 
3 2¢c07 45 
; 2208 45 IF .PBCBCPBCB_A_RBFJ NEQ 0 
; $303 45 THEN N 
3; 2210 246 STATUS=LIBSGET_VM(ZREF (.PBCBCPBCB_W_WIDTHJ+1) ,PBCBCPBCB_A_RBF J); 
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PLAY_LINKS = Virtual Display Linkages 16-Sep-1984 00:29:2 AX-11 Bliss-32 V4.0-74 
ETE "BA ASTEBOARD = Delete Bas Lekesra” 12-808- 1382 90:89:58 
PBCBCPBCB_A_R 
he er aTGe. THEN RETURN .STATUS 


i "Free any FAB or RAB that was created. 


If _ .PBCBCPBCB_A_ ja NEQ 0 
THEN BEGIN race FAB 
STATUS= Liesrate M(XZREF (FABSC_BLN), 
PBCBCPBCB_ f “FABI ); 
PBCBCPBCB_A_FAB=0; 
IF NOT eraTus. THEN RETURN .STATUS 
D; ! freeing FAB 
IF .PBCBCPBCB_A_ ie b. - ‘ 
THEN BEGIN "Once 
STATUS= LiBSFRte nCaRE (RABSC_BLN), 
PBCBCPBCB_A_RAB] }; 
epcec rece A_RABJ=0; 
IF NOT .STATUS THEN RETURN .STATUS 
ND; ! freeing RAB 


'4+ 
i. Now go free the PBCB itself. 
4 _ (STATUS=LIBSFREE_VM (ZREF (PBCB_K_SIZE), PBCB)) 
RETURN (.STATUS); 
'+ 
i Since all went well, we can now adjust the count of how many PBCB's 
t we have and remove its address from the pasteboard directory. 
PBD_V_PB_AVAIL [..PBID] = 0; 
PBD_L_COUNT = .PBD_L_COUNT = 1; 
PBD_A_PBCB C..PBID] = 0; 
RETURN SS$_NORMAL 
END; ! Routine SMGSDELETE_PASTEBOARD 


~-EXTRN SYSSCANEXH, SYSSDASSGN 
-EXTRN SYSSCLOSE 


OFFC 00000 -ENTRY Sart ee: ih 
5B 000000006 00 9€ 00002 MOVAB LIBSFREE R11 
5a 00000000 EF H 90009 MOVAB Pep L ce vn R10 
5E 14 (C2 00010 SUBL2 #207 SP 


SMGRTL.SRCJSMGDISLIN.B32;1 


BOARD, Save R2,R3,R4,R5,R6,-; 
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1-096 SMGSDELETE_PASTEBOARD = Delete esteboerd” 12-8 08- 1 3b 9:59:58 SMGRTL.SRCJSMGDISLIN. 5 2:1 _ 133 
50 6C 83 0001 SUBB3 #1, ~(AP), DIFF : 2199 
01 93 91 Mitt, CMPBsséDdUACF, #1 : 
08 1B OOO1A BLEQU -1$ : 
50 000000006 F ? pO aS aeye #SMGS$_ WRONUMARG, RO s 
59 04 ag DO 00024 1$ MOVL  PBID, R9 + 2201 
50 69 DO 00028 MOVL (RI). RO : 
OA 19 990 B BLSS = 2$ ; 
6A 50 D1 90¢0 CMPL RO, PBD_L_COUNT : 
05 14 00030 BGTR 2$ : 
08 44 AA 50 £0 00032 BBS RO, PBD_V_PB_AVAIL : 
50 000000006 &F BO 90057 2$: MOVL #SMG$_IRNVPAS~ID, bs ° ; 
046 «AE 04 AAGO DO O003F 3$: MOVL BD A.PBCBLROI, PBCB : 
54 04 AE DO 00045 MOVL BCB, : 2206 
50 54 D0 00049 MOVL Ree : 
000000006 00 16 0004¢ JSB SHaSSBEGIN_ PASTEBOARD_UPDATE_R1 : 
55 50 D0 0005¢ MOVL RO, STATUS~ ; 
6E 55 €9 0005 BLBC STATUS, 43 : 
53 04 A& DO 00058 MOVL 4(R4), CURR_PP : 2213 
54 53 D1 0005C 4$ CMPL CURR_PP, R4 3 2214 
1B 13 0005F Ea. ~=Ssié«é*SS$ : 
52 F8 A’ SE 00061 MOVAB =8(R3), PP_BASE : 2221 
50 10 A2 DO 00065 VL 16(PP_BASEJ, DCB : 2224 
11 BB 00069 PUSHR #*°M<RO,R4> 3; 2226 
0000v CF 02 FB 0006B CALLS #2, SNGSSUNPASTE _VIRTUAL_DISPLAY : 
55 50 D0 00070 MOVL RO, STATUS ; 
62 55 €9 00073 BLBC STATUS, 8$ + 2225 
53 0c A2 DO 00076 MOVL 12(PP_BASE), CURR_PP > 2231 
EO 11 OO07A BRB 4$ : 2214 
00A4 C4 D4 9007C 5$ CLRL 164(R4) 3 2234 
02 6C 91 00080 CMPB (AP), #2 + 2241 
13 1F 00083 BLSSU 6$ : 
08 AC 05 00085 STL 8 (AP) ; 
OE 13 00088 BEQL © 6$ ; 
02 6C 91 0008A MPB  —s (AP),-#2 + 2242 
4C ‘Ff 0008D BLSSU 9$ 3 
08 AC D5 0008F TSTL BAP) ; 
47 13 00092 BEQL 9$ ; 
43 08 BC £9 00094 BLBC_ a@CLEAR_SCREEN_FLAG, 9$ ; 
OC A 01 8A 00098 6$ BICB2 #1, 12TR4) > 2262 
54 DD 0009C PUSHL 3 2264 
000000006 00 01 FB 0009E CALLS #1, SHGSSERASE _PASTEBOARD ; 
55 20 DO 900A5 MOVL RO: STA TUS ; 
2D 55 £9 000A8 BLBC ATR : 
00E6 384 5A Ad B1 000AB CMPW Sta. 230(R4) : 2273 
35 13 90081 BEQL ; 
bE 006 C4 3C 00083 MOVZWL 23 O(R4) (SP) : 2276 
4200 8F BB 000B8 PUSHR P> > 2275 
000000006 00 08 FB doB¢ CALLS is “SAGSCHaNcE _PBD_CHARACTERISTICS : 
55 dO 000C MOVL ATUS : 
OF 55 £9 000C6 78: BLBC s! TATG > 2277 
54 DD 000C9 PUSHL : 2278 
000000006 09 gi FB 00¢ CALLS it. SMGS$SFLUSH_BUF FER F 
5 0 pO 0000 MOVL RO, STATUS : 
10 33 58 000 BLBS status, 10$ : 2279 
0230 31 00008 8s BRW : 
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K 16 

SMGSDISPLAY_LIN SMGSDISPLAY_LINKS = Virtual Display Linkages 16-Sep- 1986 09: 39: 23 AX-11 Bl iss-32 V4.0-74 Page 66 
1-096 SMGSDELETE_PASTEBOARD = Delete Pasteboard 14- ~teo~ 984 SMGRTL.SRCJSMGDISLIN.B32;1 (12) 
50 55 DO 00318 38$: MOVL STATUS, RO 3 2491 

04 00318 RET : 
50 69 00 031C 39$: MOVL : 2498 

00 44 AA 50 E£ 00 1F BBCC ‘6° bap” V_PB_AVAIL, 40$ : 
6A D7 00324 408: DECL PBD_L_ COUNT 3; 2500 
04 AASO D4 00326 CLRL PBD-A-PBCB[ROJ : 2502 
50 01 DO 0032A MOVL #1,°R0 3 2504 
04 0032D RET 3 2506 


; Routine Size: 814 bytes, Routine Base: _SMGSCODE + 0A95 


; 2257 2507 1 !<BLF/PAGE> 


16 
SMGSDISPLAY_LIN SMGSDISPLAY_LINKS = Virtual Display Linkages 18-Se -1984 00:29:2 AX-11 Bliss-32 V4.0-74 Page 67 
1-096 SMGSCREATE_VIRTUAL_DISPLAY = Create Virtual Dis 122860-138¢ 99:53:28 SMGRTL.SRCIJSMGDISLIN.B32;1 14} 
; 2259 508 1 ZSBTTL 'SMGSCREATE_VIRTUAL_DISPLAY - Create Virtual Display’ 
; ssoo 509 1 GLOBAL ROUTINE SMGSCREATE_VIRTUAL_DISPLAY ( a ; 
; 2261 510 1 NUM_ROWS, ! height 
; 5506 511 1 NUM_COLS, ! width 
; 226 $216 1 NEW DISPLAY_ID, 
> 2264 5131 DISPLAY_ATTRIBUTES, 
; 2265 2514 1 VIDEO_ATTRIBUTES, 
3 2266 2515 1 CHAR_SET 
; 2267 2516 1 )= 
> 2268 2517 1 !4+ 
: $598 5218 : FUNCTIONAL DESCRIPTION: 
; Ad 2520 1! This routine creates a new virtual display -- returning its 
; $si¢ 2521 1! assigned display_id. Its initial contents are blanks with 
: 22? 525§ i video attributes set to those specified or zero. The cursor 
3 2274 eses 1! will be at row 1 column 1. 
3; 2275 2524 1! 
: 2276 2525 1 ! CALLING SEGUENCE: 
; 2277 2526 1! 
; 2278 2527 1! ret_status.wic.v = SMGSCREATE_VIRTUAL_DISPLAY ( 
; 2279 2528 1! NUM_ROWS.r lr, ! Height 
; 2280 2529 1! NUM_COLS.rl.r, ! Width 
; 2281 2530 1! NEW _DISPLAY_ID.wl.r 
3; 2282 2531 1! »DISPLAY_ATTRIBUTES.rl.rJ 
> 2283 2532 1! »VIDEO_ATTRIBUTES.rl.rJ 
3 2284 2353 1! ,CHAR_SET.rl.rJ) 
; 2285 2534 1! 
3; 2286 2535 1 ! FORMAL PARAMETERS: 
3; 2287 2536 1! 
; sss S2ei : NUM_ROWS.rl.r Number of rows in new virtual display. 
$ $$o0 th : NUM_COLS.rl.r Number of columns in new virtual display. 
; 2292 2541 1! NEW_DISPLAY_ID.wl.r Virtual display id of newly-created 
3; 2295 s2e¢ 1! virtual display. 
+ 2294 2545 1! : 
5 $$02 Seee : DISPLAY_ATTRIBUTES.rl.r The default display attributes. 
3: 2297 2546 1! SMGSM_BORDER if virtual Gisotey is to be 
3; 2298 2547 1! displayed with a border. 
; 2299 2548 1! : : 
; 2300 2549 1! SMGSM_TRUNC_ICON if an icon should be Gisployed 
3 tt $220 : } when text overflows the display bounds. 
3 $308 2554 se SMGSM_DISPLAY CONTROLS if carriage controls (CR, LF, 
: 2304 2553 1! TFF, VT, HT) should be displayed instead 
; 2305 2554 1! of executed. 
; 2307 3556 : If omitted, none of the attributes will be set. 
; 2308 ane VIDEO_ATTRIBUTES.ri.r The default rendition code to be 
3; 2309 > ee applied to all output to this display unless 
3; 2310 559 1! overridden on a particular output call. 
: 2311 560 1! If not supplied. default will be all zero (no 
3 31§ 201 7 ! attributes). 
: 1 206 1! 
3 2314 5635 1! Values: 
: 2515 564 1! 


M 16 
SMGSDISPLAY_LIN SMGSDISPLAY_LINKS = Virtual Display Linkages 16-Sep-1984 00:29:2 AX-11 B 
~096 SMCSCREATE VIRTUAL DISPLAY = Create Virtust Dis lecsep-1986 94:69:48  femante’ 
; 3317 26? } SMG$M_BL INK displays characters blinking. 
: 2318 567 1! SMG$M_BOLD displays characters in 
; 2320 208 ' 3 higher-then-normal intensity. 
: 2321 570 1! SMG$M_REVERSE displays characters in reverse 
3 5356 ts ee video == that is, using the 
; 232 6 1! opposite default rendition of 
: 2324 eae e the virtual display. 
: 2325 2574 1! 
3 $359 2576 : SMGSM_UNDERLINE displays characters underlined. 
; $354 aT. 2s CHAR_SET.rb.r (COptional]. If provided, specifies the default 
; $360 gore 61 character set to be used for this display. 
; 2330 2579 1! Recognized values are: 
: 2331 seey 1! SMG$C_UNITED_KINGDOM 
; 2332 581 1! SMGSC_ASCII Tdefault) 
; 2335 S206 : | SMG$C_SPEC_GRAPHICS 
> 2334 2583 1 | SMGSC_ALT_CHAR 
; 2335 2584 1 | SMG$C~ALT~GRAPHICS 
: 2336 2585 1! 
: 2337 2586 1 ! IMPLICIT INPUTS: 
: 2338 2587 1! 
; 2339 2588 1! NONE 
: 2340 2589 1! 
: teh 2590 1 ! IMPLICIT OUTPUTS: 
; 308 2591 1! 
: 234 2592 1! NONE 
3 2344 2593 1! 
: 2345 2594 1 ! COMPLETION STATUS: 
3; 2346 2595 1! 
: 2347 2596 1! SS$_NORMAL Normal successful completion 
3; 2348 2597 1! LIBS_INSVIRMEM Insufficient virtual memory to allocate needed 
3 2349 2598 1! buffer. i c 
: 2350 2599 1! SMG$_INVARG Unrecognized Video Attributes 
>; 2351 2600 1! or Unrecognized Display Attributes 
3 $326 $00) : SMG$_WRONUMARG Wrong number of arguments. 
: 2354 $e08 1 ! SIDE EFFECTS: 
: 2355 2604 1! 
: 2356 2605 1! NONE 
3; 2357 $008 1 !=- 
: 2356 260 BEGIN 
3 44 608 BUILTIN 
2 300 rst NULLPARAMETER; 
: 308 oh SSMGSVALIDATE_ARGCOUNT (3, 6); ! Test for right no. of args 
3 2364 gi RETURN (SMGSSCREATE VIRTUAL_DISPLAY( 
: 2365 614 -NUM_ROOS, 
3 306 615 -NUM_COLS, 
: 236 616 «NEW DISPLAY_ID, ' Gets the DCB a 
3; 2368 617 4 ROT NULL RAMETER(DISPLAY_ATTRIBUTES 
: 2369 618 4 HEN .DISPLAY_ATTRIBUTES 
; 2370 619 3 ELSE UPLIT(O)~) 
3; 2371 630 4 (IF NOT NULLPARAME TER(VIDEO_ATTRIBUTES) 
> 2372 621 4 THEN .VIDEO_ATTRIBUTES 


féress for the display created 


SDISPLAY_LIN SMGSDISP INKS = Virtual Display Linkages 1b-se Sep-1 9: AX-11 Bliss-32 v4. P 9 
; SMOSCREATE VIRTUAL DISPLAY = Creste Virtest Dis iecepeione $eiberes | Pamcnt Obdessae YE. On7ks age 1 
: 237 LSE UPLIT(O) 

; te é : i af NOT NUCLPARANE TER (CHAR. SET) 
[3 75 4 THEN .CHAR SET 
g : 5 ELSE UPLITTO) ) ) ); | 
E 78 $59 END; ! Routine SMGSCREATE_VIRTUAL_DISPLAY 


oot? . 
gsuuss Hs coe: tie ! 
$ $0 DEC PLAAE: :LONG F 


0 0 ENTRY SMGSCREATE_VIRTUAL_DISPLAY, Save nothing ; 2509 3 

50 gc 3 $uBB3 #3, (AP), FF ; 2611 3 
0 1 00 CMPB)C#OédFF, #3 : : 

8 00 BLEQU ; 3 

50 00000000G &F be O0\¢ nove #SMG$_WRONUMARG, RO 3 : 
06 c 91 ot 1$: MPB (AP), #6 3: 2623 $ 
A 1F 00 1 BLSSU r 3 

18 A 0 001 TSTL 4 (AP) 3 é 

0 0018 BEOL $ : $ 

18 AC 0D 0001D PUSHL HAR_SET : 2624 3 

06 11 000 3 BRA $ : 3 

50 D7 AF YE 00022 2$: MOVAB P.AAE, RO 3: 2625 F 
50 DD 4 4 PUSHL a : 3 

05 C 91 00028 3$: CMPB (AP), #5 : 2620 ; 
A 1€ 00028 BLSSU i 3 

14 A rf 0020 TSTL 20( AP) 3 3 

05 (1 38 BEQL 3 ; 

14 AC DD PUSHL YLPOR_AT TRIBUTES : 2621 é 

06 11 000 BRB 3 3 

50 BE AF 9E 037 4$ MOVAB P.AAD, RO : 2622 3 
50 +} 0 PUSHL : 3 

04 C 91 000350 5$: CMPB (AP), #4 3; 2617 3 
a 04 BLSSU $ 3 

7 66 rf 04 TSTL 16(AP) 3 3 

0 004 BEQL i 3 

10 AC DD 0004 PUSHL goreat ATTRIBUTES : 2618 é 

06 11 A BRB 3 $ 

50 AS AF 9E 4C 6$: MOVAB P.AAC, RO 3 2619 3 
50 oD PUSHL R : 3 

7E 08 ac 70 7$: mOVa NUM_COLS, =(SP) : 2615 3 
04 Ac 0D PUSHL a 3 2614 : 

0000v CF 06 FB be a #6, SMGSSCREATE_VIRTUAL_DISPLAY 5 Hy 
04 E RET 3: 2627 3 


; Routine Size: 95 bytes, Routine Base: _SMGSCODE + ODDO 


; 2379 2628 1 !<BLF/PAGE> 


1 

MGSDISPLAY_LIN SMGSDISPLAY_LINKS = Virtual Display Linkages 1b-se -1984 00:29: AX-11 Bliss-32 V4.0-74 
att SMGSDELE E WIRTUAL DISPLAY - De ete virtua dis 1 ~3007 1387 90:89:08 SMGRTL.SRC Shep {si i B42: 1 
5 1 6 1 ZSBTTL ts fee VIRTUAL_DISPLAY = Delete virtual fisptay® 
: ¢ ? ! GLOBAL ROUTIN SMGSDELETE_ViRTUAL_DISPLAY ( DISPLAY_ID = 
; i 6 ; i FUNCTIONAL DESCRIPTION: 
; : 6 1 i This routine deletes a virtual display. it is automatically 
; 238 6355 1! “unpasted’’ from ony pasteboards on which it is pasted and 
3 4 ? : its associated buffer space is deallocated. 
; 30 6 g 1 | CALLING SEQUENCE: 
; % 640 ret_status.wlc.v = SMGSDELETE_VIRTUAL_DISPLAY (DISPLAY_ID.rl.r ) 
: 34 b4¢ i FORMAL PARAMETERS: 
; 38 ete : DISPLAY_1D.rl.r Id of virtual display to be deleted. 
: 2398 G46 1 | IMPLICIT INPUTS: 
3 99 64 1! 
5 648 1! NONE 
3 649 1! 
3 650 1 ! IMPLICIT OUTPUTS: 
; 651 1! 
3 $26 1! NONE 
; 65 . | 
; O28 : COMPLETION STATUS: 
: ay 7 S$S$_NORMAL Normal successful completion 
; 657 1! SMGS_INVDIS_ID Invalid display . 
; ei% o28 ! SMG$_WRONUMARG Wrong number of arguments. 
; aig 660 1! SIDE EFFECTS: 
3 241 2661 1! 
: 2616 5066 1! NONE 
> 2415 26635 1 !-- 
; 2416 2664 BEGIN 
: 2617 665 LOCAL 
3: 24618 666 STATUS ! Status of subroutine calls 
> 2419 2667 CURR_PP : REF $PP_DECL, i Addr of current pasting packet 
5 : oe3 DCB : REF SDCB_DECL; ! Addr of display control block 
; : § th SSMGSVALIDATE_ARGCOUNT (1, 1); ! Test for right no. of args 
: rs 3 ore SSMGSGET_DCB ( .DISPLAY_ID, DCB); ' Get DCB address 
; 6 674 CURR_PP = .DCB CDCB_A_PP_NEXT); 
3: 24 675 
3; 2428 O76 '¢ : 
: <8) 67 ; Loop through all pasteboards we're pasted to, undoing our Linkage to 
3 24 678 ! each. 
: 2431 679 !- 
3 O36 680 : 
: $e ° 1 wtiLe -CURR_PP NEQ DCB CDCB_A_PP_NEXT] ! While any remain... 
: i3¢ 6 ‘ BEGIN ! Overall Loop 
3 $36 684 LOCAL - 
3; 243 685 PBCB : REF $PBCB_DECL; ! Addr of pasteboard control blk 


SRO ISPLAT LIN sneep) 
~ SMG$D 


; 24 

; 246 
3; 24 

; 2467 
; 2468 
3 24 


KS - tyet Display Linkages 1b-Se Sep-1984 AX-11 Bliss-32 V4.0 
et’ atRTU TUAL os - Delete virtual dis 1 ~8ep-1984 9: §3: § SMGRTL.SRC SMGDISLIN. 5 2;1 


PBCB = .CURR_PP [PP_A_PBCB_ADDR); 


44 6 
te ty \ 
44 6 i Update pasting packet pointer to next pasting packet, before 
rey ? 1 i. the unpaste operation makes current on go away. 
45 £9 CURR_PP = ,CURR_PP CPP_A_NEXT_DCB]; 
44 694 
44 695 + 
<¢8 yr} | Now we can unpaste this Linkage. 
450 69 iF NOT (STATUS = SMGSSUNPASTE_VIRTUAL_DISPLAY ( 
451 9 OCB 
43¢ 00 .PBCB )) 
te 701 THEN 
454 70 RETURN (.STATUS); 
455 70 
+2 704 END; ! Overall loop 
245 705 
458 706 '+ 
{2h 707 i Havin successfully severed our Linkage with all the eyresrgres to 
46 08 ' to which we were pasted, we can now get rid of the DC self. 
461 709 i Before we can delete this DCB we must check to see if whan is a 
$786 ! backup DCB in Sqiosenes: If so, call outselves recursively to delete 
sie ! the wt OCB firs 
re ¢) If .DCB CDCB_A "BACKUP DCB] NEQ 0 
66 


( 
THEN B™CDCB_A_BACKUP_DCBJ)) 
RETURN (.STATUS); 


! One remaining chore is to first release the buffer areas whose 

! addresses are in the DCB. Recall that the two buffer (text and 

' attr) were initially allocated as a double-size buffer and split in 
' two. This means we can return both at once 7 supplying. the address 
i. of the the text buffer and a length equal to twice i ize. 


IF NOT (STATUS = LIBSFREE_VM ( 3REF (2x DCB CDCB L BUFSIZEI), 
B COCB_A_TEXT_BUFJ)) 


MOPURONONORIA) @ 3 


THEN 
RETURN (.STATUS); 


‘4 
&g Free the line characteristics vector 


IF NOT (STATUS = LIBSFREE_VM C(aneF .DCB COCB_W_NO_ROWS] +1), 
8 cocé. A_LINE_CHARJY) 


THEN 
RETURN ( .STATUS); 


2 ‘teee the char_set buffer if there is one. 
Nei? CDCB_A_CHAR_SET_BUF] NEQ 0 


ISPL 
ELET 
& 
4 
THEN 
: IF NOT ( STATUS =SMGSDELETE seme 2 DISPLAY 
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SDISPLAY_LIN SMGSDISPLAY_LINKS = Virtual Display Linkages 
; 96 SMGSDELETE VIRTUAL DISPLAY - Delete virtust dis 


1 
1 
IF NOT (STATUS = LIBSFREE_VM ( 45 ‘ 
THEN va 
RETURN (.STATUS); 


B_ 
B-A~CHAR 


1+ 


If we have a dynamic string containing a border label, free the string 
' IF_ DCB CDCB_V_BORDEREDJ 
THEN 


SRLEDRENVLSSSLES. 


PUSPVSTSUSISISISISIVIIVIT ££ ES 


; 7 
: 7 BEGIN ! Bordered 
; Pee LOCAL 
5 7 DESC : REF BLOCK [8,BYTE]; ! Pointer to dynamic string 
; 8 7 § ! descriptor in DCB 
; 9 7 DESC = ace CDCB_Q_LABEL_DESC]; 
; 10 , 8 IF DESC DSCSA-POINTER] NEQ 0 
; se 760 4 IF NOT (STATUS = LIBSSFREE1_DD ( .DESC)) 
; 251 76 THEN 
3: 2514 166 RETURN (,.STATUS); 
: 2515 76 END; ! Bordered 
; 2516 764 + 
: 2517 765 ! Now the DCB itself... 
; 2518 766 ! Before freeing this area, we clobber the byte that makes it 
: 2519 767 i recognizable as a DCB. fhat wey if someone inadvertantly tries to 
; 2520 768 i pass us this DCB address as a DCB after having deleted the virtual 
: 2 1 a4 display, we can tell that it no longer is a valid DCB. 
3 2 4 arr DCB CDCB_B_STRUCT_TYPE] = 0; 
3 : : ure RETURN (CIBSFREE_JM (ZREF ( DCB_K_SIZE), DCB )); 
3 358 a 1 END; ! Routine SMGSDELETE_VIRTUAL_DISPLAY 
001C 00000 -ENTRY SMGSDELETE VIRTUAL_DISPLAY, Save R2,R3,R4 : 2630 
54 000000006 00 9 Ons MOV LIBSFREE_VA, R4 : 
5E 08 § 000 SUBL Ss ‘ 
01 6C 000C CMPB) CAP), #1 ; 2670 
ge 3 OOOF BEQL 3 
50 00000000G 8F ? ehh eaye #SMG$_WRONUMARG, RO : 
50 0% BC 00 0019 1$: MOVL @DISPLAY_ID, RO : 2672 
04 BC 8 AO D O10 CMPL 6(RO), SDISPLAY_ID ; 
06 1 0 BNEQ 3 
11 44 AO 9 4 CMPB 8(RO), #17 ‘ 
g 1 8 BEQL F 
50 00000000G 8F BY , 2s aeye #SAGS$_INVDIS_ID, RO : 
04 =A 4 BC D § 3$ MOVL @DISPLAY_ID, DCB : 
6 A D B MOVE th ), CURR_PP owe 
1 A § 4$: MOVAB (R3) Ri - ; 2681 
51 5 p 4 CMPL CURR_PP, R1 ; 
14 4 BEQL : 


; 2527 2775 1 !<BLF/PAGE> 


F 1 
SDISPLAY_LIN SMGSDISPLAY_ LINKS = Virtual Display Linkages 16-Sep-1984 00:29: AX-11 Bliss-32 V4.0-74 Pa 7 
et SMCSDELETE VIRTUAL DISPLAY = Delete virtosl dis leegene19nd 43:60:48 — Pemen te sae ismap yet en e$2-1 0 
54 14 a3 D 48 MOVL 20(CURR_PP), PBCB : ; 
D 4C MOVL § (CURR_PP), CURR_PP : 3 
; Baa ua Rg : 3 
V CALLS #2, SMGSSUNPASTE_VIRTUAL_DISPLAY : 3 
0000v CF F $$ : 
E4 F 8 BLBS STATUS, 4 : 
40 A2 03 96 C 5$ TSTL  64(R2) : 3 
40 3 OF booat Peta StCR2) : ; 
98 AF 91 FB 8 64 CALLS #1, SMGSDELETE_VIRTUAL_DISPLAY : ; 
61 8 BLBC status, 9$ : : 
10 A2 SF 6$ PUSHAB 16(R2) : : 
04 AE 3C A 01 78 O6E ASHL #1, 60(R2), 4(SP) : : 
04 AE 9F 000 PUSHAB 4(§P) : ; 
64 9 FB 77 CALLS #2, LIBSFREE_VM : : 
4F OO7A LBC status, 9$ : ; 
at Ag F 0007D PUSHAB 76(R2) : ; 
04 AE 0 A2 3C 9080 MOVZWL 2(R2), 4(SP) : ; 
4 AE 06 0008 INCL 4(SP) : : 
04 AE 9F 00088 PUSHAB 4(SP) : ; 
64 9 FB 0088 CALLS #2, LIBSFREE_VM : ; 
3B E9 000 BLBC TATUS. $ ; ; 
18 «OA D3 0091 TSTL 4(R2) : ; 
OC 13 00094 BEQL Q ; ; 
18 Ad OF 0096 PUSHAB 24(R2) ; 33 
3C =6A2 «OF 00 PUSHAB 60(R2) ; : ; 
64 9 FB 0009C CALLS #2, LIBSFREE_VM ; : 
2A E9 O009F BLBC STATUS, 9$ : ; i 
15 3 Ag 4 OOA2 7$: BLBC 47(R2). 8$ : ; 
5} 8B A OOA6 MOVAB &(R2), DESC ; : 
04 Al OD QOOAA TSTL  4(DESC) ; : 
OC 13 O00AD BEQL = 8S : : 
51 DD OOOAF PUSHL DESC ; : 
000000006 00 01 FB 00081 CALLS #1, LIBSSFREE1_DD 3 § j 
11 50 £9 00088 LBC status, 9$ : : 
44 A2 94 00088 8$: LRB  —s-« 6B (R2) : : 
04 AE 9F OOOBE PUSHAB OCB ; : 
04 AE 70 8F OA 990¢1 MOVZBL #112, 4(SP) ; : 
04 AE 9F 000C6 PUSHAB 4(SP5S : : 
64 02 FB 000C9 CALLS #2, LIBSFREE_VM ; : 
04 OOOCC 98: RET : ; 

; Routine Size: 205 bytes, Routine Base: _SMGSCODE + OE2F : 
| 
| 
‘4 
‘4 
- 4 
33 


DISPLAY_LIN eneee DISPLAY_LINKS = Virtual Display Link 18s Sep-1984 9: AX-11 Bliss-32 V4.0-7 Page a 
att4 SGET DISPLAY ATIR = Get display attributes 1e-Sep-19RG $9:60:48  FEMGRTL SReSsheDy Sign BS2-1 915) 2 
5 7 1 ZSBTTL ‘SMGSGET piseiay ATTR = Get qepley attributes’ | ; 
: f : GLOBAL ROUTINE SMGS$GET ate || avo : 
; : 779 (4 HEIGHT. : 
; 7 » 1 WIDTH 3 
; 781 1 DISPLAY_ATTRIBUTES, ; 
3 5 7 § 1 VIDEO_ATTRIBUTES, 3 
; ° 7 1 CHAR_SET 3 
; 784 «(1 )= : 
3 8 785 1 !+4 3 
3 if f § ! FUNCTIONAL DESCRIPTION: : 
: re 78 : This routine returns attributes of the virtual display. ; 
: 508 £30 CALLING SEQUENCE: ; 
> 2545 792 1/1 ret_status.wic.v = SMGSGET_DISPLAY_ATTR ( ; 
; 278 793 1! DISPLAY_ID-rl.r, 3 
3; 254 794 1! HEIGHT.wl.r, 3 
3: 2548 795 1! WIOTH.wl.r : 
3 2549 796 13 “DISPLAY. ATTRIBUTES wl.r : 
; 2550 797 13 »VIDEO ATTRIBUTES. wi. _ : 
5 32) 38 } ,CHAR_SET.wl.rJ) : 
: 338 800 FORMAL PARAMETERS: 3 
> 2555 80¢ 1 i DISPLAY_ID.rl.r The id of the display for which the ; 
; 228 rts | information is requested. : 
: 328 2806 : HEIGHT. wl.r Height of display in rows : 
; 200 60? ! } WIDTH.wl.r Width of display in columns ; 
: 26¢ 809 1} DISPLAY_ATTRIBUTES.wl.r Optional. If provided, the current ; 
; 256 810 1! default dtsplay attributes witl be returned. : 
; re} sei ! These may be: : 
: 2566 Ate 1! SMGSM BORDER if display is displayed with a ; 
Be ie : 
: 569 2816 1! VIDEO_ATTRIBUTES.wl.r Optional. If provided, the current ; 
; 2570 817 1! default video attributes are returned. These F 
; ya 318 : values may be: : 
; 578 830 } SMGSM_BL INK displays characters blinking. 3 
: 2575 B3e 1 SMG$M_BOLD displays characters in ; 
3 278 BS? : er-than-normal intensity. : 
; 2578 825 1! SMGSM_REVERSE displays characters in reverse ; 
3; 2579 8 § 1! video -- that is, using the 3 
; 2580 1! opposite default rendition of é 
: 3! 3 : e virtual display. : 
; 358 ? ! SMGSM_UNDERLINE displays characters underlined. ; 
: 3s 3 CHAR_SET.wb.r Optional. If provided, the current default : 


H 1 

SDISPLAY_LIN SMGSDISPLAY LINKS = Virtual Display Linkages -Sep-1984 00:29: AX-11 Bliss-32 V4.0-74 Page 75 
im85e SmCSCEY DISPLAY ATTR - Get display attributes $7 808- 1382 90:59:28 SMGRTL.SRCISMGDISLIN.B 2;1 . 153 
5 ee Be character set code is returned. 
5 4 i} Possible values are: 
; 3 5 1! SMG$C_UNITED_KINGDOM 
; } 1! SMGSC_ASCII Tdefault) 
; 90 ,} SMGSC_SPEC_GRAPHICS 
; 2591 1! SMGSC_ALT_CHA 
3 3 ? : SMG$C_ALT_GRAPHICS 
: 94 41 1 ! IMPLICIT INPUTS: 
; 2595 rX: 1! 
3 239 45 1! NONE 
3 2 44 1! 
; a8 45 1! IMPLICIT OUTPUTS: 
; 25 rf] 1! 
; 2600 47 1! NONE 
3; 2601 848 1! 
; 260 849 1 ! COMPLETION STATUS: 
; 260 850 1! 
3; 2604 851 1! SS$_NORMAL Normal successful completion 
; 360¢ S26 ! SMG$_WRONUMARG Wrong number of arguments 
$ rsd 854 1 ! CIDE EFFECTS: 
3; 2608 855 1! 
3; 2609 $28 1! NONE 
3; 2610 857 1 I= 
; 2611 858 BEGIN 
3 ol¢ 859 BUILTIN 
: 261 2860 NULLPARAMETER; 
: 2614 861 
: 2615 B06 LOCAL 
3 ei$ yt DCB : REF $DCB_DECL; ! Addr of display control block 
3 2618 o86s SSMGSVALIDATE_ARGCOUNT (3, 6); ! Test for right no. of args 
; 2620 2867 SSMGSGET_DCB ( .DISPLAY_ID, DCB); ' Get DCB address 
: 26 é 288 .HEIGHT = .DCB FDCB_W_NO_ROWS ; 
; ? seve «WIDTH = .DCB CDCB_W_NO_COLS); 
3; 2625 $B58 $ IF NOT NULLPARAMETER (DISPLAY_ATTRIBUTES) 
; os6 seoz THEN .DISPLAY_ATTRIBUTES = .D0CB CDOCB_B_DEF_DISPLAY_ATTRI; 
: 2628 2875 IF NOT NULLPARAMETER (VIDEO_ATTRIBUTES) 
: 4 arg THEN .VIDEQ_LATTRIBUTES = .O0CB COCB_B_DEF_VIDEO_ATTRI; 
> 2631 78 1F NOT NULLPARAMETER, (CHAR. SET) 
: O36 % THEN .CHAR_SET = .DCB CDCB_B_DEF_CHAR_SET); 
: 2634 881 RETURN (SS$_NORMAL); 
: 2635 882 END; ! Routine SMGS$GET_DISPLAY_ATTR 


93°93 60000 sENTRY SMGSGET_DISPLAY_ATTR, Save nothing 44s 


50 6c SUBB3 #3, (APY, DIFF 


re 
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03 91 CMPB DIFF. #3 : 
18 BLEQU : 
50 000000006 &F Bo MOVL #SMGS$_WRONUMARG, RO : 
50 6 oc 6 13 1$: MOVL DISPLAY_ID + 2867 
04 ac 7 eS D 1 CMPL (RO), abigptay. 1D ; 
06 1 1C BNE ; 
11 44 OA ? i CHP (RO), #17 : 
50 000000006 gf pO 4 28: MOVL #SMG$_INVDIS_ID, RO : 
50 04 BC DO 6 3$: MOVL sate) ate pce ; 
08 BC 2 ao 3¢ MOVZWL Eich ; 869 
OC BC 06 Ad 3¢ 000 MOVZWL 6(DCB : 
04 6C 91 OOO3A CMPB (AP), ts : 379 
OA iF 00 D BLSSU 4$ : 
10 A D5 O3F TSTL 16(AP) : 
05 1 0042 BEQL  4$ ; 
10 BC 2F 4 =6A0 9A 0004 MOVZBL 47(DCB), @DISPLAY_ATTRIBUTES : 2873 
05 6C 91 00049 4$: CMP (AP), #5 + 2875 
OA 1F 0004C BLSSU -5$ ; 
14 A 3 Babes STL OC AP) $ 
05 13 00051 EQL % : 
146 BC 2— AO 9A 90055 MOVZBL 46(DCB), aVIDEO_ATTRIBUTES : 2876 
06 6C 91 00058 Ss: CMPB CCAP), #6 > 287 
OA 1F 00048 BLSSU 6$ ; 
18 AC D5 005D TSTL 24(AP) ; 
05 13 00060 BEQL 6$ : 
18 «BC 30 AO 9A 9006¢ MOVZBL 48(DCB), @CHAR_SET : 2879 
50 01 00 00067 68: MOVL #1, RO : 881 
04 0006A RET > 2882 
; Routine Size: 107 bytes, Routine Base: _SMGSCODE + OEFC 


; 2636 2883 1 !<BLF/PAGE> 
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; 2638 84 1 XSBTTL ‘SMGSLABEL BORDER - Specify label for border’ 

; 2659 i 1 GLOBAL ROUTINE SMGS$LABEL_BORDER ( 

3 2640 § 1 DISPLAY_ID, 

3; 2641 87 1 LABEL_TEXT, 

; 264 58 1 POSITION, 

3 264 89 1 UNITS 

> 2644 90 1 RENDITION_SET 

> 2645 891 1 RENDITION- COMPLEMENT, 

: 2646 35 1 CHAR_SET 

: 2647 8935 1 d= 

; 2648 894 1 !++ 

3 $63 £3? ! } FUNCTIONAL DESCRIPTION: 

; 2651 897 1! This routine allows the caller to speci ty what label text is to 
; $26 Bye 1! be used with this display. If the specified DISPLAY_ID does not 
3 265 899 1! have the display attribute of SMGSM_BORDER, this attribute is 

3; 2654 900 1! forced. 

3; 2655 901 1! 

; 2656 902 1! If the text parameter is not supplied, this virtual display 

; $02! 903 1! no longer has a border text associated with it -- it becomes 

; 2658 904 1! an unlabeled border. If a valid text string is provided, it 

: $023 905 1! replaces the current Label text for this border. 

; 2660 $308 1! If the text (as positioned within the border) does not fit 

; 2661 907 1! fully within the border, SMGS_INVARG is returned. 

3 O66 2908 1! E.g. 

3; 266 2909 1! teececce LABEL 

3 He 2910 1! ' H 

3 665 2911 1 ' Gececcecn + 

; 2666 saig 1! 

; 2667 2913 1! 

3; 2668 2914 1! POSITION and UNITS as a pair specify the starting position of 

3: 2669 $3i2 1! the Label text within the border. 

; 2670 916 1! If POSITION is omitted, the top border is assumed. If UNITS is 
3; 2671 sale 1; omitted, a starting position will be chosen so as to center the 
; sore 918 1! text either horizontally or vertically -- depending on implicit 
: 267 919 1! or explicit POSITION. 

3 2674 920 1! If both are omitted, the text will be centered in the top border 
3: 2675 921 1! line. 

: 2676 $356 1! 

3; 2677 2925 1! The following encoding is used: 

; sere $aSe 1! 

3; 2679 2925 1! POSITION UNITS SYMBOLIC 
3 680 926 1 YO mememem mm 
: ret 927 1! = Top border Line Starting column number SMGS$K_TUP 
; g 928 1! = Bottom border Line Starting column number SMGS$K_BOTTOM 
; 268 929 1! § = Left border Line Starting row number SMCSK_LEFT 
3 vets ; 9 | = Right border Line Starting row number SMGS$K_RIGHT 
3 ' $33 : Examples: 

3; 26 332 1! POSITION=0, UNITS=4 POSITION=1, UNITS=4 

3; 2689 932 1! 

, 690 9 6 1 ' +--_ ABEL --------- eee aoese + teow e er mrocene mmr nara aneeaoee ° 

: 2691 937 1! : H H H 

: 269 3 1! H : ' H 

3; 269 939 1! : ' H ' 

3 2694 940 1! : H H H 
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: 2695 941 1! ' H H H 
. eet | eam : : 

H , dt wmoeensaoanscees Ser eee eee + oo Seo t em eran raaree $ Py 

; 2698 944 1! 3 

; 2699 945 1! $ 

; 2700 4 1! POSITION=2, UNITS=3 POSITION=3, UNITS=3 3 

: 2701 947 1! 3 

H 70 948 1 ' hom em oe ce mc oe em me ema oe + fpowwmoanmr amen earerncwosrowaew + 4 

; 270 949 1! H H { } 3 

3: 2704 950 1! L ' ' L $ 

: 2705 951 1! A H ' A 3 

:; 270 926 1! B ' ' 8 $ 

; 270 955 1! E H H E 3 

: 2708 954 1! L H H L 3 

3; 2709 955 1! : ' H : : 

3 710 328 1 ' er + tera ra moon eam meme om mo we + D4 

3; 2711 957 1! 3 

3 re 958 1! F 

3; 271 959 1 ! CALLING SEQUENCE: ; 

3: 2714 960 1! : 

: 2715 961 1! ret_status.wlc.v = SMGSLABEL_BORDER ( : 3 
3 svg 306 1! DISPLAY_ID.rl.r s 5 
3 2717 9635 1! »LABEL_TEXT.rt.dx] F 

3; 2718 964 1! P SEITON.r} .F F 

3 2719 965 1! UNITS. erl.r ; 

; 2720 966 1! »RENDITION_SET.rl.rJ ia 
3: 2721 967 1! »RENDITION_ COMPLEMENT. rir.J 3 

3: 27 ¢ 2968 1! »CHAR_SET.rl.rJ) $ 

: 27 969 1! F 

3: 2724 970 1 ! FORMAL PARAMETERS: : 

: 2725 971 1! 3 

3: 2726 38 1! DISPLAY_ID.rl.r The ag ty id of the virtual display whose F 

3; 2727 7s 6 CE border is to be Labeled. This display must have 3 3 
; gree are ! the display attribute of SMGSM_BORDER. : ; 
; $793 976 1! LABEL_TEXT.rt.dx poet iooet 2, If supplied becomes the new a3 
: ey 977 1! label for this display's border. If 3 

3 I36 44 ! } omitted, display becomes unlabeled. : 

3 2734 980 1! POSITION.rl.r COptionalj. 3 

: 2735 981 1! Specifies which border will contain Label. 3 

; res 982 1! If omitted, default to top border. 3 

: 2737 983 1! : 

: r8 984 1! UNITS. rl.r {COptional). 3 

3; 27 985 1! Specifies where within the border the text Label : 

3; 2740 986 1! will start. é 

: rl 3H : } If omitted, center in Line indicated by POSITION : 

3 274 989 1! RENDITION_SET.rl.r COptional). : 

3 2744 990 1! Each 1 bit attribute in this parameter 

3: 2745 991 1! causes the corresponding attribute to 

3; 274 336 1! be set in the display. (See below for 

: r 993 ; List of settable attributes.) 

: 274 995 1! RENDITION_COMPLEMENT.rl.r FOptional). 

3; 2750 9 1! Each 1 bit attribute in this parameter 

; 2751 997 1! causes the corresponding attribute to 
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3; 27 ¢ 998 1! be complemented in the Steet er, (See 
: ef 999 1! below for List of complementable 

; ¢ Bey ! } attributes.) 

: 27 $ Oe 1/ If the same bit is specified in both the RENDITION_SET parameter | 
; e7 os. 3% and in the RENDIT:ON_COMPLEMENT parameter, the appt ication is 
sar $ 06 1! RENDITION_SET followed by RENDITION complement. Using these two 
; 27 05 1! parameters together the caller can exercise arbitrary and 

; 2760 888 1} independent control over each attribute on a single call. On an 
: 2761 0 1 ! attribute by attribute basis he can cause the following 

5 Boe ! transformations: 

; ree O14 ; SET COMPLEMENT Action 

: 276 Big 1/ 0 Patera RttriBute unchanged. 

3; 276 015 1! 1 Attribute set to ‘‘on’’ 

; 2768 014 1! 0 1 Attribute set to complement of 
: 2769 015 1! current setting. 

3; 2770 Big 1! 1 1 Attribute set to ‘‘off'’. 

50h O18 | | 

: os O19 Attributes which can be manipulated in this manner are: 

: 2775 031 1/ SMG$M_BLINK displays characters blinking. 

3; 2776 0 ¢ =. SMGSM_BOLD displays characters in higher-than-normal 

3; 2777 023 1! intensity. 

: 2778 bse 1! SMGSM_REVERSE S\seteye characters in reverse video -=- that is, 
3; 2779 025 1! using the copestte default rendition of the 

; 2780 0 § 1! virtual display. 

: 49! 2 : SMGSM_UNDERLINE displays characters underlined. 

: 278 099 1/ CHAR_SET.rl.r (COptional]. If provided, the character set to 
: 2784 030 1! be used in displaying the Label. 

: 2785 031 1! Recognized values are: 

3 2786 O38 1! SMGS$C_UNITED_KINGDOM 

3; 2787 0335 1! SMGSC_ASCII Tdefault) 

3; 2788 034 1! SMGS$C_SPEC_GRAPHICS 

3; 2789 035 1! SMG$C_ALT_CHAR 

: 2790 036 1! SMG$C_ALT—GRAPHICS 

: $0G3 088 | | 

; 193 039 ! IMPLICIT INPUTS: 

: 199 041 : None 

; 739 a4$ | IMPLICIT OUTPUTS: 

; ia 045 None 

; 801 be9 i COMPLETION STATUS: 

: 803 rk 1 $S$_NORMAL Normal successful completion 

3 ape bey 1! SMGS_INVDIS_ID Invalid virtual Stent ey id. 

; 5 i a SMG$_INVARG Position ng and/or uni ; when considered with 
3 O26 1! Length of text results in a position that is 

; 280 be 1! outside of the border area. 

; 2808 54 1! SXu$_WRONUMARG Wrong number of arguments. 
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| SIDE EFFECTS: 


descriptor in DCB for border 

DCB : REF $DCB_DECL; Addr. of display control block 
SSMGSVALIDATE_ARGCOUNT (1, 7); ! Test for right no. of args 
SSMGSGET_DCB ( .DISPLAY_ID, DCB); ! Get addr of DCB 


80 

3) 

1 ! 

81 { NONE 

81 {== 

81 BEGIN 

81 

81 LITERAL 

81 K_SET_ARG = 5, 

3 K-COMP_ARG= 6; 

8 BUILTIN 

: NULLPARAMETER; 

8 LOCAL 

8 LUNITS, ! Implicit or explicit UNITS 
8 LPOS, ! Implicit or explicit POSITION 
8 REND_CODE, ! Rendition to be applied to 
8 ' border label 

82 STATUS, ! Status of subroutine calls 
B¢ DESC : REF BLOCK C,BYTEI, Pointer to dynamic string 
83 ! 

83 ! 

83 
83: 

83 
83 

83 

3 
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8 ! 

4 Get a copy of the Label. 

ot 7 DESC = DCB CDCB_Q_LABEL_DESC]; 

84 IF NULLPARAMETER (LABEL_TEXT) 

84 THEN 

84 BEGIN ! No text specified 

84 09 RETURN (LIBSSFREE1_DD ( .DESC)); 

of Ber END; ! No text specified 

ae bee IF NOT (STATUS = LIBSSCOPY_DXDX (.LABEL_TEXT, .DESC)) 

85 097 RETURN (.STATUS); 

Be 39 5 ts 

43 190 Check to see if combination of POSITION and UNITS fit. ; 

85 1 § . LPOS = ( IF NOT NULLPARAMETER (POSITION) THEN ..POSITION ' 

Be 10? ELSE 0); ! Default to top row ; 

85 19s CASE .LPOS FROM SMGSK_TOP TO SMGSK_RIGHT OF ' 

Hg 199 CSMGSK_TOP,SMGS$K_BOTTOM): ! Top or bottom row 

bes 109 LUNITS = ( IF NOT NULLPARAMETER (UNITS) : 
i 110 THEN ..UNITS ' 

865 111 ! Center horizontally 


* | 
SMGSDISPLAY_LIN SnSeD ISELAY LINKS = Virtual Display Linkages 16-Sep-1984 229: AX-11 Bliss-32 v4.0 Page 81 
1-096 MGSLABEL BORDER = Specify Label forbordge, — Iaesepatone $oiho.es «© KementePtheSshep tcc Qn’e$2-1 918) | 
; 286 11 ((. DCBCOCB_W_NO_COLS] -.DESC CDSC$W_LENGTHJ) 
$806 118 Poesy: : 

; 2868 114 

3; 2869 115 IF .LUNITS LEQ 0 

; 2870 118 eLUNITS + .DESCCOSCSW LENGTH] GTR .D0CB COCB_W_NO_COLS] +2 
: 2871 11 THEN 

3 ere 118 4 BEGIN 

3: 287 119 4 LIBSSFREE1_ DD (.DESC) ; ! Release our dynamic string 

; 2874 120 4 RETURN (SMG$_INVARG); 

3 of? 121 END; 

; Bre : ¢ END; 

; ac8 1 2 CSMGSK LEFT. ,SMG$K_RIGHT): ! Left or right column 

; 2880 1 § 4 LUNITS = ( i - aren (UNITS) 

3; 2881 1 4 UNITS 

: oes 128 4 ese ' Center vertically 

; 288 14 ((, sPSecocev y NO. ROWS] -.DESCCDSC$W_LENGTH)) 
3 2884 130 / 2) +27) 

3; 2885 131 

3; 2886 136 IF .LUNI7S LEQ 0 OR 

3 2887 313 3 -LUNITS + .DESCCDSC$W_LENGTH] GTR .DCB CDCB_W_NO_ROWS] +2 
; 2888 134 N 

3 2889 135 4 EGIN k 

; 2890 136 4 LIBSSFREE1_ DD (.DESC) ; ! Release our dynamic string 

3; 2891 13 4 RETURN (SMGS_ INVARG); 

3; 289 138 3 END; 

3; 289 139 2 END; 

3 2894 140 

3; 2895 141 COUTRANGE): 

3; 2896 \4§ RETURN (SMG$_INVARG); 

: 2897 14 TES; 

3; 2898 3144 

; 2899 3145 DCB CDCB_B_LABEL_POS]) = -LPOS; 

3; 2900 3146 DCB CDCB"W"LABEL_UNITS) = .LUNITS; 

; $303 3147 

; a6 3148 '¢ 

: 290 $195 ' If UNITS parameter was omitted we centered the label. Make a note of 
3: 2904 150 : this fact so that if he later does a CHANGE _VIRTUAL _DISPLAY we can 

; 2905 151 ! again sgeeer it_in its new ‘‘center’’. 

3 a08 136 DCB B_V_LABEL_CENTER] = 0; 

; 290 15 IF NUDLERMRNETER™ (UNITS) 

3: 2908 154 THEN 

3; 2909 155 DCB CDOCB_V_LABEL_CENTER] = 

: 2910 136 

: 2911 15 '¢ 

; at 158 i Calc. REND_CODE as a function of callers rendition arguments and 

3 at 12 - the defaul€ rendition in the DCB. 

3: 2915 161 SSMGSSET_REND_CODE (K_SET ~ARG, K_COMP_ARG); 

: aig 166 ! matro to use caller's args if present 
: 2918 164 DCB CDCB_B_LABEL_REND] = .REND_CODE; 

3: 2919 165 

: 350 198 '¢ 

3: 2921 16 ' Deal with alternate character set. 

3 2922 168 !- 
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4 off off off off off oft off ot of 1 ofl 


NG 


nv 
42 


2 
SMGSDISPLAY_LIN ereee LSet AY LINKS = Virtual Display Linkages bes Sep =] AX-11 Bliss-32 v4. o 
1-096 SLABEL_BORDER - speci ty Label for border 14-Sep 132 99: 89; 6 ONGRTLeS ntismep tsi ine B32;1 age 88 


IF NOT NULLPARAMETER(CHAR_SET) 
ed BEGIN 
CASE ..CHAR_SET én snort UNITED KINGDOM 
TO SMG$C_ALT_GRAPHICS OF 
D_KINGDOM, 


GRAPHICS, 


= 


DCB CDCB_B_LABEL_CHAR_SET] = ..CHAR_SET; 


CINRANGE, OUTRANGE): 
RETURN (SMG$_INVARG); 

LSE ! Use default for virtual 
pcB Coca. _B_LABEL_CHAR_SET] = .DCB of yd DEF _CHAR_SET); 


DCB CDCB_V_BORDEREDJ] = 1; ! Force bordered attribute in case it 
! wasn't previously. 


oa 


We now need to recalculate the constants in the posting packet. 

We may be making the transition from unbordered to bordered, so 

this virtual display now has a bigger footprint in the pasteboard 
buffer a some display which previously was not occluded may now be. 


SMG 
7 
7 
7 
t 
7 
7 
| 
8 
8 
8 
8 
9 
9 
9 
9 
9 
Even if we were reviously bordered, the size and position of our 


5 
é 
; 


Label may have changed. 

f we are not batched at the vigeg ey level, recalc. pasting packet 
constants and initiate output. lse, just remember that we need to do 
it later when batch Level drops to zero. 


1F DCB CDCB_L_BATCH_LEVEL) EQL 0 
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BEGIN !' Do it now 
o NOT (STATUS = SMGSSRECALC_PP_FIELDS ( .DCB)) 


N 
RETURN (.STATUS); 


RETURN ( , SMGSSCHECK_ FOR_OUTPUT_DCB ( .DCB, SMGS$C_LABEL_BORDER)); 
END ! Do it now 


ELSE 


BEGIN ! Defer the action 
tf CDcB. V_PP_MISMATCH oT: ! Remember for Later 


T Befér the action 
RETURN (SS$_NORMAL) ; 


Be Se Se Se Ge Se Fe Se Ge Ge OH Ge Se Ge Se Fe Ge Fe Ge Ge Ge FE Ss Se Ge Se Ge FH Se Ss SH Se Se Be Se Se Se Se He Oe Se Se Se Se Se Se Se Se Be Be ee 
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! Routine SMG$LABEL_BORDER 


OOFC 00000 -ENTRY SMGSLABEL_BORDER, Save R2,R3,R4,R5,R6,R7 ; 2885 


2 
MGSDISPLAY_LIN SMGSDISPLAY_LINKS = Virtual Display Linkages bes Sep-1984 9: AX-11 Bliss-32 V4.0-74 Page 83 Sm 
; witt4 SMGSLABEL_BORDER = Specify Label for border 14-Sep 71382 99: 89 88 SMGRTL.SRC Serine ° (16) 1-( 
57 000000006 9 MOVA L1BSSFREET DD : 
50 ¢ ° e 09 SUBB3) #1 BI pe R + 3080 
6 i CMPB oir. *6" : 
18 0001 BLEQU : 
50 000000006 8F BO 0 MOVL #SMG$_WRONUMARG, RO ; 
50 04 BC DO OOO1A 1$: MOVL § @DISPLAY_ID + 3082 
04 BC & Ad D1 a8 CMP 6(RO), abISPLAy. ID : 
11 AO 9 § CMPB Saas #17 : 
8 13 00029 BEQL ; 
50 000000006 8F p 00 2$: MOVL #SMGS$_INVDIS_ID, RO ; 
52 04 BC pO 0033 3$: MOVL @DISPLAY_ID, DCB ; 
54 8 A2 9E 000 MOVAB &(R2), DESC’ + 3087 
02 6¢ 91 00938 CMPB ss «CAP*), : 3089 
0S 1F 000 BLSSU 4$ : 
08 AC D3 0004 TSTL B<AP) : 
06 12 0004 BNEO $ : 
54 DD 00045 4$ PUSHL DESC + 3092 
67 01 FB 00047 CALLS #1, LIBSSFREE1_DD ; 
04 0004A RET : 
54 DD 00048 5$ PUSHL DESC + 3095 
08 AC DD 90040 PUSHL LABEL_TEXT ; 
000000006 00 FB 00050 CALLS 2, LTB$SCOPY_DXDx ; 
56 DO 00057 MOVL RO, STATUS : 
03 56 ES 00034 BLBS STATUS, 6$ ; 
0108 31 0005p BRW : 
03 6c 91 90060 6$: CMPB ss), #3 + 3102 
OB 1F 0006 BLSSU ; 
0c AC D5 00065 TSTL  12(AP) : 
06 13 00068 BEQL : 
55 0C BC DO 0006A MOVL § @POSITION, LPOS ; 
0¢ 11 OO06E BRB 8$ F 
55 D4 00070 7$: CLRL _=LPOS : 
03 00 55 CF 00072 8$: CASEL LPOS, #0, #3 : 3105 
0039 0039 000A OO0A 00076 98: «WORD 108-85, =" : 
13$-9$.- : 
13$-9$ : 
68 11 0007 BRB 18$ : 3142 
04 6C 9100080 10$:  CMPB (AP), #4 : 3109 
0B 1F 0008 BLSSU 118 ; 
10 AC D 0085 TSTL  16(AP) ; 
06 1 BEQL 118 : 
53 10 BC D OOBA MOVL aUNITS, LUNITS : 3110 
7°«11 O08 BRB 12$ ; 
50 06 A2 3 0090 11$:  MOVZWL 6(DCB), RO : 3112 
51 4 ¢ 0094 MOVZWL (DESC). R1 ; 
50 1 2 00097 UBL2  R1, RO ; 
20 c6 009A DIVL2 #2, RO + 3113 
5 02. A : 009D MOVAB e{R0), LUNITS ; 
4 } a} 128: LEQ 7$ ; 3115 
1 64 ¢ A MOVZWL (DESC), R1 ; 3116 
1 3 ¢ Ab DDL2  LUNITS. R1 ; 
0 06 A2 %3C OOOA MOVZWL 6(DCB). RO : 
2C 11 OOOAD RB 6$ ; 


d 2 
SMGSDISPLAY_LIN SMGSDISPLAY LINKS = Virtual Display Linkages 16-Sep-1984 00:29: AX-11 Bliss-32 V4.0-74 Page 84, 
witt4 SMGSLABEL_BORDER = Specify Label for border 1 ~30071 382 99:89:68 SMGRTL.SRCISMGDISLIN.B 2;1 7’ (16) ¢ 
04 C 91 QOOAF 13$:  CMPB (AP), #4 : 3126 ij 
B 1F 0008 BLSSU 148 : 3 
06 1 r) BEQL «=s«14$ : 3 | 
53 10 Q 89 MOVL § @UNITS, LUNITS + 3127 ij 
BD BRB 15$ : : 3 
3 02 A2 3¢ BF 14$: MOVZWL 2(DCB), R3 > 3129) 4 
$ C MOVZ2WL (DESC), RO : 3 
C C6 SUBL2 RO, R : 3 
6 C C Divle #2. R + 3130 : 3 
CC ADDL2 #2, LUNITS : 3 
1 CF 15$: BLEQ 17$ ; 313 3 j 
51 64 ¢ 01 MOVZWL (DESC), R1 + 313 3} 
21 ¢ 0D4 ADDL UNITS, R1 : ? 
0 02 A f 0007 MOVZWL 2(DCB), RO : 3} 
50 Q CO 000DB 16$:  ADDL2 #2, R : 7 
50 1 01 OOD CMPL R11, R : 3 j 
g7 15 O00E BLEG } 6-19 : 3 
4 0D OOES 17$: PUSHL DESC + 3136 3 
67 1 FB OO0E CALLS #1, LIBSSFREE1_DD : 3 | 
7 11 QOOE8 18$: BRB 3; 3137 - | 
ae 3 90 OOOEA 19$: MOVB LPOS, 49(DCB) > 3145 7 
¢¢ A 80 OEE MOVW LUNITS, 44(DCB) > 3146 3; 
4 he 04 8A OOOF BICB2 #4, 52¢ i: 313¢ 3; 
04 6¢ 91 000r6 CMPB_ (AP), 4 : 315 ,; 
5 1F 000F9 BLSSU 208 : 3; 
10 AC D5 000FB TSTL 16(AP) : 3 
04 M2 O00F BNEG 21$ : 3 | 
34 OA 04 88 001 208 BISB2 #4, 52(DCB) ; 3155 3 | 
50 2E A2 9A 00104 218 MOVZBL 46(DCB), REND_CODE > 3161 34 
05 6C 91 00108 CMPB (AP), #5 : 3 | 
09 1F 00108 BLSSU 22$ : 33 
14 AC D5 00100 TSTL QAP) : 33 
04 13 00110 EQL $ : 3 | 
50 14 BC CB 00112 BISL2 @RENDITION_SET, REND_CODE ; 3 
06 6C 9100116 228:  CMPB (AP), # : 3 
09 1F 00119 BLSSU _23$ F ‘? 
18 AC 05 0118 TSTL 4 (AP) : ? 
04 1 O1IE BEQL 3$ ; 3 j 
50 18 BC ct 001 XORL2  @RENDITION_COMPLEMENT, REND_CODE : i? 
33 A 0 90 00124 238 MOVB REND_CODE, ~51(DCB) : 3164 ¥ 
07 ¢ 91 00128 CMPB ss (AP) 7 > 3169 5 | 
23 1F 00128 BLSSU 278 ; 2 
1c AC D3 01 TSTL (AP) ; i 
1E 13 001 BEQL 3 : ij 
04 09 1¢ BC CF 001 CASEL @CHAR_SET, #0, #4 : 3172 .} 
0012 0012 001 01 001 248 WORD 6$- aS. 3; 
6$-24$,- : 5 | 
6$-24$.- ; .j 
6$-24$ : 2; 
50 000000006 8F i 141 258: MOVL #SMGS$_INVARG, RO ; 3183 i? 
o = 4 
32.2 1¢ 0 125 26$:  MOVB @CHAR_SET, 50(DCB) : 3180 3] 
2 A 30 Ad 9 136 7s: fous. £8tdeB), 50cDcB) : 3183 i. 
F AS 0 38 12 8$:  BISB2 #1, 47(6cB) : 3189 3 | 


a eel 
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SAGSDISPLAY LIN SMGSDISPLAY_LINKS = Virtual Display Linkages bese -1984 00:29: AX-11 Bliss-32 V4.0-74 Page 85 
1-096 SMGSLABEL BORDER - Specify Label for berate bata 4 90:89:58 SMGRTL.SRCISMGDISLIN. B32;1 . (16) 
1C 3 =—A2 03 159 TSTL gpcoce) : 3202 

18 15C BNEQ 1$ : 
52 DD 001 PUSHL pce :; 3205 

0000V gf . - 1 CALLS “i, SAESSRECALC_ PP_FIELDS 3 

6 0D 1 MOVL RO TUS ; 

04 6 £8 00168 BLBS § STATU Os. 0s : 
0 6 4 Ab 298 mOVL STATUS, RO : 3207 
1C OD Sig 30$: PUSHL #28 ; 3209 

5 DD 1 \ PUSHL ose 3 

000000006 00 0 Fe 31 f3 CALLS #2, SMGSS$CHECK_FOR_OUTPUT_DCB 3 
34 ae 08 gs bien 31$: BISB2 #8, 52(DCB) 3; 3215 
5 01 DO 0017F MOVL #1, RO : 3218 
04 00182 RET 3; 3219 


; Routine Size: 387 bytes, Routine Base: _SMGSCODE + 0F67 


; 2974 3220 


1 !<BLF/PAGE> 


ss #4 48 84 As 48 44 08 W4e 8. 4 


F 
; 2 


MGSDISPLAY_LIN SMGSDISPLAY_LINKS = Virtual Display Linkages -Sep-1984 00:29: AX=11 Blisg-32 V4.0-74 Page 86 
im85e SMGSMOVE_VIRTUAL_DISPLAY = Nove’ provioust? past 1 ~300n 138% 99:89:08 SMGRTL_SRCISMGDISLIN.B 2;1 . 138 
; 297 1 1 XSBTTL "SMGSMOVE VIRTUAL_DISPLAY = Move previously pasted virtual display’ 

: 44 § : GLOBAL ROUTINE SAGSMOVE_VIRTUAL_DISPLAY ( may to 
: 297 4 PASTEBOARD. ID, 

3; 2980 5% PASTEBOARD_ROW, 

; 2981 § 1 PASTEBOARD_COL 

; 298 1 ) =z 

: 298 3 1 le¢ 

: + 44 , : FUNCTIONAL DESCRIPTION: 

: 9 he fe The specified virtual bite | is moved with respect to the 

3 st ¢ 1! position where it is currently pasted to the agect tee pasteboard 

; 29 1! preserving the pasting order. If the display is not currently 

3; 2989 4 1! pasted, it is pasted at the top of the pasting order in the 

; 2990 ie Feet tien specified. 

5 44 : ! his call is not permitted while display batching is in effect. 

: 299 38 1 ' CALLING SEQUENCE: 

3: 2994 9 1! 

; 2995 40 1! ret_status.wic.v = SMGSMOVE_VIRTUAL_DISPLAY ( 

: 298 oe LAY_ID.rl.r 

> 299 42 1: PASTEBOARD_ID.rl.r, 

; 2998 4 1! PASTEBOARD_ROW.rl.r 

> 2999 44 1! PASTEBOARD~COL.rl.r5 

; 3000 245 1! 

; 3001 $48 : FORMAL PARAMETERS: 

; 008 $78 : } DISPLAY_ID.rl.r Id of virtual display to be moved. 

: 005 250 1! PASTEBOARD_ID.rl.r The peoteveere id of the pasteboard on 

3 OOP 2) : which the movement is to take place. 

: 3008 $3 1 i PASTEBOARD_ROW.rl.r Row on pasteboard which is to contain 

3 sf See ! } row 1 of the specified virtual display. 

: 3011 $3 1! PASTEBOARD_COL.rl.r Column on pasteboard which is to contain 

5 Big 57 1! column 1 of the specified virtual 

; 301 io display. 

3; 3014 59 1! 

; 3015 60 1 ! IMPLICIT INPUTS: 

3 pig 61 1! 

; 301 o¢ 1! None 

; 3018 AGS 

; 3019 64 1 ! IMPLICIT OUTPUTS: 

:; 3020 65 1! 

3; 3021 66 1! None | 

3 ; § 47 1! 

3 054 44 : : COMPLETION STATUS: | 

: 3025 $ .= S$S$_NORMAL Normal successful completion | 

: 30 § 71 1! SMGS_INVDIS_ID Invalid virtual display id. 

:; 30 4 1! SMG$_INVPAS_ID Invalid pasteboard id. 

; 8 > 38 SMG$_WRONUMARG Brong number of arguments. 

: te 1 | SMGS"ILLBATFNC Display is being batched, this operation is illegal. | 

: 3031 26 1 | SIDE EFFECTS: 

3 2 77 1! | 
| 
| 


17696 
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'¢ 
; Recalc. occlusions. 


a ( STATUS = SMGSSCHECK_OCCLUSION ( .PBCB)) 
RETURN (.STATUS); 


2 
ISPLAY_LIN SMGSDISPLAY_LINKS = Virtual Display Linkages 18-se -1984 00:29: AX-11 Bliss-32 V 
SMGSMOVE VIRTUAL DISPLAY - Nove previousl? past 1 7350-1382 99:69:28 ESMGRTL RCISMGDI 
3 7861! NONE 
79 «1 be 
5 BEGIN 
BUILTIN 

¢ AP, 

? CALLG; 

5 LOCAL 
‘eh § STATUS, ! Status of subroutine calls 
$08 8 PP : REF $PP_DECL, ! Addr of the pasting packet 
Reg DCB : REF $DCB_DECL, ! Addr. of display control block 
Be? s' PBCB : REF S$PBCB_DECL; ! Addr of pasteboard control biock 
0c? 3 SSMGSVALIDATE_ARGCOUNT (4, 4); ! Test for right no. of args 
is an 
050 95 2 | Get addresses of associated virtual display control block and 
051 38 ! pasteboard control block, validating both the display id and the 
beg 4 : pasteboard id. 
054 9g ¢ SSMGSGET_DCB ( .DISPLAY_ID, DCB); ! Get addr of DCB 
bee BY SSMGSGET_PBCB ( .PASTEBOARD_ID, PBCB); ! Get addr of PBCB 
O89 0 '¢ 
bee b7 Give an error if the display is batched. 
060 05 2. 
bes 88 = ,DCOCDCB_L_BATCH _LEVELJ NEQ 0 
beg 08 RETURN SMG$_ILLBATFNC; 
068 0 5 
066 11 i Determine if this virtual display is already pasted to this 
06 \§ ! pasteboard. If it is we can do the MOVE. f it isn't we'll do a 
Ree 1? } ASTE at the specified position. 
Of 13 "IF _NOT SMGSSLOCATE_PP( .DCB, .PBCB, PP) 
078 i$ RETURN SMGSSPASTE_VIRTUAL_DISPLAY(.0CB,.PBCB 
07 18 .PASTEBOARD_ROW, .PASTEBOARD_COL); 
074 1 
075 0 '¢ 
876 1 : Set new row and column into pasting packet 

78 : "pp FPP ROW = ..PASTEBOARD_ROW; 

079 : PP LPP_W_COL = ..PASTEBOARD_COL; 


'¢ 
' Recalculate the transformation constants needed to copy this display's 


4.0-74 
SLIN.B52;1 
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SDISPLAY_LIN SNGSDISPLAY INKS = Virtual Display Linkages 1% *.. -1984 9: AX-11 Bliss-32 V4.0 P 
ait SHGSMOVE VIRTUAL DISPLAY = Move previous te sast 1eekeoet98G $ei69.cs §«— Lemont eae ismep eign 62-1 age 38 
3 £30 5 } buffers into the associated window's buffers. 
; 3 5 "JF_NOT ( STATUS = SMGSSCALC_PASTE_TRANSF (.PP)) 
; O94 33 RETURN (.STATUS); 
: 036 4} RETURN (SMGSSCHECK_FOR_OUTPUT_PBCB (.PBCB)); 
: 3098 rk END; ! Routine SMGSMOVE_VIRTUAL_DISPLAY 
001C 000 ENTRY SMGSMOVE_VIRTUAL_DISPLAY, S$ R2,R3,R4 3 
$4 00000000" FF 9 009 HOVAB. PBD.L_COONT, R4~ ~~ i 
E 4 § 0 SUBL 4,°S ; 
pH) guage geet tos 
50 000000006 8F v6 0 if ROVE #SMG$_WRONUMARG, RO : 
50 0 BC DO i§ 1$ MOVL  a@DISPLAY_ID + 3299 
04 BC 8 AO 01 0001 CMPL 56(RO), SbISPLaY. 1D ; 
i 4 BNEQ 3 
11 A G 0 CMPB 8(RO), #17 : 
08 13 0028 BEQL ; 
50 000000006 8F v6 00 A 2s: OVE ¥SMG$_INVDIS_ID, RO : 
52 04 BC 00 0032 3$: MOVL § @DISPLAY_ID, DCB : 
50 8 BC 00 000 MOVL § @PASTEBOARD’ID, RO : 3300 
A 19 OO03A BLSS ; 
64 0 oI 90 C CMPL RO, PBD_L_COUNT ; 
05 14 0 F BGTR 4$ F 
08 44 AG 0 EO 0 41 BBS RO, PBD_V_PB_AVAIL : 
50 000000006 &F 00 0046 4$: MOVL aSAGS” IRVPAS"ID, Kg ° ; 
53 04 A440 0 OO4E 5$: MOVL stats A PBCBLRO], PBCB : 
ace es i 
50 000000006 BF 0 38 MOVL #SMGS_ILLBATFNC, RO ; 3308 
400C 8F BB 00060 68: PUSHR —#*MCR2 RS. SP> : 3315 
0000v CF ; FB 64 CALLS , AGSSCOCATE _PP ; 
O¢ 5 9 BLBS : 
E Oc AC ?D MOVa A: OARD_ROW, -(SP) : 3318 
¢ 8B PUSHR #*M<R2.R3> : 
0000v CF 4 FB d CALLS #4, SMGSSPASTE_VIRTUAL_DISPLAY ; 
5 6E D 78 7$: MOVL PP, R2 : 3323 
18 «OA o¢ BC B MOV § @PASTEBOARD_ROW, 24(R2) ; 
1A OA 1 ¢ B MOVW § @PASTEBOARD-COL. 26(R2) : 3336 
DD PUSHL Pe : 3329 
0000v CF 1 FB CALLS jrSROSECHECK_occLUSION : 
13 E C BLBC 3s STA : 
0000v CF PP 00091 CALS SHGSSCALC_PASTE_TRANSF Basel 
9 0 £8 96 BLBC st TATU at ; | 
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2 
SMGSDISPLAY LIN SMGSDISPLAY_LINKS = Virtual Display Linka 1 p-19 - ~ mi 
1-096 SMGSMOVE_VIRTUAL_DISPLAY = nun oreclausll pest 1b-s 38 21982 99: 89; 4 SMGRTLeSRES Shao tsign 6 B52;1 Page 9 a 
; dD 99 PUSH : 
000000006 00 FB 00098 CALL ree SMGSSCHECK_FOR_OUTPUT_PBCB : a 
Ad 8$: RET : 3343 


; Routine Size: 163 bytes, Routine Base: _SMGSCODE + 10EA | 


; 3099 3344 1 !<BLF/PAGE> 
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Dis 
Pas 
1 ZSBTTL ‘SMGSPASTE YAR TAL OISELAY - Paste virtual display to pasteboard’ 
GLOBAL ROUTINE SMGSPASTE_TIRTUAL_DISPLAY ( _ 
PASTEBORRD- 1D, 
PASTEBOARD-ROW 
;, PASTEBOARD_COL 
= 


o 
uw 


| 
NE 


+ 


+ 
FUNCTIONAL DESCRIPTION: 


The specified virtual display is pgasted. (oriented 
with respect to) a pasteboard. This makes the display visible. 


CALLING SEQUENCE: 


PRAEAEQPMINGIVIVIVIUIUI EE & 


S 
WN —OVOONAOUE WI" OVONOu 


WN —O OCONOULS WN —OOONOUSw—O0@ 


3 31 

s 31 | 

s 51 1 

3; 31 1 

s 351 1 

. 3 1 

s 3} 1 

s 51 1 

3 51 3 

s 3) 1! 

331 1! 

3 3) . 3 

3; 3 4 

3; 31 3 

s 31 1! 

s 31 1! 

3s 31 1! 

a 1 

: 364 | PASTEBOARD~COL.rl.rS 
: 13 36 FORMAL PARAMETERS: 

; 1 368 : DISPLAY_ID.rl.r Id of virtual display to be pasted. 
: 31 70 13 PASTEBOARD_ID.rl.r The pasteboard id of the pasteboard on 
: , 4 ! which the pasting is to take place. 
: 31 Se PASTEBOARD_ROW.rl.r Row on pasteboard which is to contain 
: ; rR : row 1 of the specified virtual display. 
: 1 7% 1! PASTEBOARD_COL.ri.r Column on pasteboard which is to contain 
: 31 iY one column 1 of the specified virtual 

: : : 4 ! display. 

; 136 380 { IMPLICIT INPUTS: 

: 31 82 1! None 

; 3139 a e4 

3 139 f : IMPLICIT OUTPUTS: 

: 314 86 1 i None 

3; 314 1! 

3 138 es : COMPLETION STATUS: 

: 146 90 1: SS$_NORMAL Normal successful completion 

3 314 91 1! SMGS_INVDIS_ID Invalid virtual display id. 

: 3148 5 1! SMGS_INVPAS_ID Invalid pasteboard id. 

3; 3149 93 1! SMGS$_ RG Brong number of arguments. 

; 139 Re ! } SMGS_ILLBATFNC Display is batched. 

; 138 % i SIDE EFFECTS: 

° i 

; is 399 | i nat 

731 $ 104 ; BUILTIN 


K 2 
SMGSDISPLAY_LIN SMGSDISPLAY_LINKS = Virtual Display Linkage 16-Sep-1984 00:29: AX-11 Bliss-32 V4.0-74 Pp 91 
e850 SMCSPASTE, VIRTUAL DISPLAY = Paste yictust displ Iccsepe1oRe $oi09.03 | Femant She ssRep yer On’ g82.4 79 18) 
40 AP, 
CALLG; 
LOCAL 
STATUS, ! Status of subroutine calls 
pe : REF S$PP_DECL, ! Addr of the pasting packet 
' being created. 
dcB : REF $DCB_DECL, ! Addr. of display control block 
wCcB : REF $WCB_DECL, !' Addr. of window control block 
PBCB : REF $PBCB_DECL; 


Addr of pasteboard control 
block 


SSMGSVALIDATE_ARGCOUNT (4, 4); 


Test for right no. of args 


14 

' Get addresses of associated virtual display control block and 

! pasteboard control block, validating both the display id and the 
pasteboard id. 


SSMGSGET_DCB ( .DISPLAY ID, DCB); =! Get addr of DCB 
SSMG$GET-PBCB ( .PASTEBOARD_ID, PBCB); ! Get addr of PBCB 


WN —O DONOUEWN “OO ONOUFS WOO 


+ 
Give an error if the display is batched. 


IF _<DCBCDCB_L_BATCH_LEVEL] NEQ 0 
RETURN SMGS_ILLBATFNC; 


+ 


Check to make sure we're don't already have a pasting from this 

virtual Gispiey to this pasteboard. If it is, we enpioy the 

repaste logic to remove the current pasting before allowing this new 

posting, his is necessary because we don’t want ambiguous pastings. 
te: The repaste logic ends up recalling the paste routine 

recursively (after doing an unpaste) -- but that's ok since there 

con 08 post one such pasting. The second time we are called this 

est w ail. 


IF SMGSSLOCATE_PP( .DCB, .PBCB, PP) 


VMEWwN— 


Fk tal ak ek ek kek eee ee ek ek ae ae ae ae ae ae ee ee ee ee ek ek ee ke 


BB RWWWWWIWI II anononononononononony 2 2 OOOO 


r 
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4a 
1 445 RETURN (CALLG (.AP, SMGSREPASTE_VIRTUAL_DISPLAY)); 
: 44 RETURN SMGSSPASTE_VIRTUAL_DISPLAY(.DCB,.PBCB 
448 .PASTEBOARD_ROW, .PASTEBOARD_COL); 
450 END; ! Routine SMGSPASTE_VIRTUAL_DISPLAY 
001¢ .ENTRY SMGSPASTE VIRTUAL_DISPLAY, Save R2.R3.R4 ; 3346 
54 00000000' FF H HOVAB PBD_L_COURT, R4 ; 
E 4 C¢ SUBL #4,~SP ; 


SMGSDISPLAY_LIN 
90 


; Routine Size: 


; 3207 


SMGSDISPLAY_LINKS = Virtual Display Linkage 


1 
SMGSPASTE_VIRTUAL_DISPLAY = Paste virtual displ 1 


046 BC 


50 000000006 8F 


9 
1 
4 BC y 
BORER 
as 
“ gi 
08 44 AG 0 €0 
50 000000006 8F ? re 
53 04 A440 D 4 
1c =A2 D 05 
1 05 
50 000000006 &F 4 b2 
4 0005F 
400C F 88 0060 
Q000vV CF 3 Fe 0064 
06 E9 00069 
0000v CF 6C FA Bne6 
4 00071 
7E oc aC 7D 00072 
0c BB 0007 
0000v CF 04 FB 0007 
04 00070 


126 bytes, Routine Base: 


3451 


1 !<BLF/PAGE> 


50 000000006 i 


ae) 


3h 
ao 


-SMGSCODE + 118D 


18: 


2$: 
3$: 


4$: 
5$: 


6$: 


7$: 


2 
B-$ep-1964 00:28:28 Yael! BLing-32 v4. 0-743. 


(AP), #4 
#SMG$_WRONUMARG, RO 


DISPLAY_ID, RO 
(RO), SDISPLAY_ID 


(ROD, #17 
#SMG$_INVDIS_ID, RO 


@vISPLAY_ID, DCB 
@PASTEBOARD. ID, RO 


RO, PBD_L_COUNT 
4$ 


RO, PBD_V_PB_AVAIL, 5$ 
#SMGS_IRVPAS“Ic, RO 


PBD_A_PBCBCRO], PBCB 
28608) 
#SMG$_ILLBATFNC, RO 


#*M<R2,R3,SP> 
#3, SMGSSLOCATE_PP 


(AP), SMGSREPASTE_VIRTUAL_DISPLAY 
PASTEBOARD ROW, (SP) 

#*M<R2,R3> 

#4, SMGSSPASTE_VIRTUAL_DISPLAY 


3423 


+ se Joe oe 28 Loe ioe oe oe oe oe oe 20d 288 28d 28s 28k 22k 208k od 28d 28d 28d 2 od 88 88 od ode 28s 28k ofe 28s 288 oe 28s 288 28s 28s 28d od 28 oe es 28k 28s 28k od 28d oe 2d 28d 28s 2d 28d oe ods 88 
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SMGSDISPLAY_LIN SMGSDISPLAY_LINKS = Virtual Display Linkages 16-Sep-1984 00:29:2 AX-11 Bliss-32 V4.0-74 Page 93 mC 
e880 SNCSPOP. VIRTUAL DISPLAY = Pop off deletes’ s se lnesepa198¢ 94:60:08  FeMGRTL SRESSREDISL IN. 69251 9°19) i 
; 3209 4 ¢ 1 ZSBTTL ‘SMGSPOP_VIRTUAL_DISPLAY - Pop off (delete) a sequence of virtual displays’ ; j 
H 10 4 1 GLOBAL ROUTINE SMGSPOP_VIRTUAL_DISPLAY ( e 4 
; 3211 454 1 DISPLAY_ID, +3 
; \¢ 455 1 PASTEBOARD_ID - 3 
; 321 £28 1 )= i | 
; 3214 457 1 S44 - 
: 3219 498 1 | FUNCTIONAL DESCRIPTION: 3 
: 19 460 1! This procedure deletes all the virtual displays on the specified 3 
: 3218 461 1! peste oard, starting with the d splay specified, up eroum all + 3 
; 3219 re 1! igher-pasted display. Each of these displays is unpasted in a 
; Y ee? ! in the course of doing the deletion. :j 
3 g 465 | | CALLING SEQUENCE: .; 
> 3224 16? 1/ ret_status.wic.v = SMGSPOP_VIRTUAL_DISPLAY ( DISPLAY_ID.rl.r : : 
; 3225 468 1 | PASTEBOARD_1D.rl.r) 3 
; 3 470 | | FORMAL PARAMETERS: 3} 
: 9 472 1: DISPLAY_ID.rl.r Address of the display id of the lowest : ; 
; $ 0 473 1! pested virtual display to be deleted. - 3 
3 1 474 1! Ll ai prer-pestes displays are deleted * 3 
: 3 § ate : as well. : ij 
; 3 rh ! PASTEBOARD_ID.ri.r Address of the pasteboard id involved. 2 
; 36 479 1! IMPLICIT INPUTS: 2; 
; 7 480 1! :j 
H $8 481 1! NONE 2; 
3; 3239 482 1! 2; 
: $79 485 1 ! IMPLICIT OUTPUTS: 2 | 
; seg 485 1! NONE : ij 
3 324 486 1! : ij 
; 365 ret ! : COMPLETION STATUS: : 3 
: 46 489 1! $S$$_NORMAL Normal successful completion 3 
: 324 490 1! SMGS_INVDIS_ID Invalid display id ij 
3 48 491 1! SMGS$_INVPAS ID Invalid pasteboard id 2; 
3 rh rh } : IMGS"WRONUMARG Wrong number of arguments ae 
3384 494 1 | SIDE EFFECTS: ¥ 
: 26 495 1! : | 
; 496 1! NONE 3 
PY 54 49 1 !-- ; : i 
PY 3? 49 1 e 4 
: 3296 4 BEGIN 3 
3 325 5 LOCAL 2 
3 38 501 STATUS, ! Status of subr. calls 2; 
; ve ‘ RET_STATUS, accuaulated status during a 
Ps . 00: e 

: 6¢ 505 PBCB : REF SPBCB_DECL, i Address of a pasteboard 3} 
3 97 5 ! control block a 
: 3265 308 DCB: REF S$SDCB_DECL, ! Address of a virtual display : 


irt 
AY 


'c 
‘iz 


er 


SPERDISPLAY LIN SM 


aac 
rw 
vo 
ow 
vu 
wn 


Pop off (delete -Sep-1 SMGRTL.SRCJSMGD (19) 


N 2 
al Display Linkages 16-Sep-1984 00:29: AX-11 Bliss-32 V4.0-74 p 4 
Lableted’s se lacgep-1986 $eiboscs =f épYSigN-882;1 a9 49 
' 
PP : REF S$PP_DECL; ! Addr of 2 longwords that form 
! queue header in PP currently 
aa ! under inspection. 
; Check for right number of arguments. 


$8 control block we started with 
68 

9 

0 

71 

f 
74 SSMGSVALIDATE_ARGCOUNT ( 2, 2); 
76 ; 

14+ 

7 ' Get addresses of virtual display control block and pasteboard control 
8 } block and validate them. ph . At 
80 : SSMGSGET_PBCB ( .PASTEBOARD_ID, PBCB ); 
81 SSMGSGET_DCB ( .DISPLAY_ID, DCB); 
83 r 
84 ! Locate the pasting packet that reflects this pasting (if one exists) 
3? -PP is the base address of the pasting packet. 
67 IF NOT (STATUS = SMGSSLOCATE_PP ( .DCB, .PBCB, PP)) 
3 RETURN (.STATUS); 


te 
Change packet address to address of queue header. 


PP = .PP + PP_PBCB_QUEUVE_OFFSET; ! Start with specified packet 
RET_STATUS = SS$_NORMAL; ! Assume success to follow 


ooo 
wr 


t+ 
Batch the sequence of updates we are about to do. 


IF NOT ( STATUS = SMGSSBEGIN_PASTEBOARD_UPDATE_R1 (.PBCB)) 
RETURN (.STATUS); 


S2LF 


WAPTIPPSPoPoroefnefenofornoforn) 
BE 
“ 


'¢ 
: Loop for all pasting packets starting with this one to the Last-pasted 
. ie) 


Ww 


waite -PP NEQ PBCB CPBCB_A_PP_NEXT] 


oreis ' For all displays that need to be deleted 
STATUS, ! Status of delete calls 


PP_BASE : REF SPP_DECL, ! Base address of the PP 


DCB : REF $DCB_DECL; ! Current virtual display that 
- ! needs to be deleted. 


i Calc. the base address of this pasting packet since the queue 
! headers for this part of the chain are not at relative 0 in 
! the pasting packet. 
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SMGSDISPLAY_LIN SMGSDISPLAY_LINKS = Virtual Display Linkages 16-se -1984 00:29: AX-11 Bliss-32 V4.0-74 
1-096 SMGSPOP_VIRTUAL_DISPLAY = Pop sft Ldeleted ase mt 1 90:39:58 SMGRTLe aeishep {si wn 6 2;1 Page 433 


le 
PP_BASE = .PP = PP_PBCB_QUEUE_OFFSET; 
1 


14 
Find DCB that is in this pairing. 


DCB = .PP_BASE CPP_A_DCB_ADDR); 
1+ 


i Delete this virtual dis lay, causing it to be unpasted from 
all pasteboards to which it is currently pasted. 


09 
; 3 $ 
; ¢ Sef : 
: $e zi : 
3358 af 
3 9 256 : 
3 0 57 3 
; 1 574 3 
3 ¢ 575 3 
Re 318 ; 
; 5 sr 4 iF NOT ( STATUS = SMGSDELETE_VIRTUAL_DISPLAY ( DCB CDCB_L_DIDJ)) ; 
Wo RG Poh oe Se ok ta | 
Ps HM no error e e ; 
: 3339 582 & ye save s one : 
:; 3340 583 4 BEGIN $ 
3 $20 584 4 IF .RET_STATUS THEN RET_STATUS = .STATUS; : 
; 306 585 END; 3 
3; 334 586 3 
$ sate 587 '+ F 
; 3345 3588 3 ! Walk this chain backwards, from the packet we started with ; 
; $329 589 3 ! back to the head of the chain -- since the most recently : 
: $325 aoe pasted dispiays are at the head of the chain. : 
: 3349 29 i PP = .PP_BASE CPP_A_PREV_PBCB); ; 
: 3350 593 2 END; T For all displays that need to be deleted ; 
Hl HBS : 
; 3388 3896 IF NOT (STATUS = SMGSSEND_PASTEBOARD_UPDATE_R2 ( .PBCB )) ; 
3: 3354 $200 5 THEN 3 
3 3355 598 RETURN (.STATUS); 
3; 3356 e237 2 
; 3357 600 2 RETURN (.RET_STATUS); 
; 3358 3601 2 
; 3359 3602 1 END; ! End of routine SMGSPOP_VIRTUAL_DISPLAY 
007C 00000 ENTRY SACSPOP_VIRTUAL DISPLAY, Save R2,R3,R4,R5,- ; 3453 
56 00000000" cf 96 000 MOV PBD_L_COUNT, R6 ; 
5E 4 C $ SUBL #4,~SP 3 
02 C 91 0000C CMPB. ss (AP), #2 : 3517 
8 13 OO00F EQL 3 
50 00000000G 8F ? BS ig pove #SMGS$_WRONUMARG, RO : 
50 08 BC 00 0019 1$: MOVL § @PASTEBOARD_ID, RO : 3523 
A 1 10 BLSS 3 
66 0 } 1F CMPL RO, PBD_L_COUNT 3 
92 4 ¢ BGTR 3 
08 44 a6 0 3 BBS RO, PBD_V_PB_AVAIL, 3$ ; 
50 000000006 8F 0 00009 28: MOVL_«#SAGS_IRVPASTID, RO : 


SAGE ISPLAT LIN 
1-096 


3; Routine Size: 


; 3360 


SMG$ 
SMG$ 


178 


3603 


3 
DISPLAY_LINKS = Virtual Display Linkages 1b-sep=1 
POP_VIRTUAL_DISPLAY = Pop off (delete) a se 14-Sep=-1 
23 4 A640 D 8 1 38: 
0 4 Bf D 6 
04 «BC 8 A o A 
0 F 
11 44 AO 9 4) 
BF pO 00047 
50 00000000G 8F bY rl 4$: 
50 o Be dO 8 4F 5$: 
4021 F BB it 
0000V gf . Be 05 
3 9 D Spee 
48 E SF 
6E 08 CO ORE 
54 4 DO 0006 
50 5 DO 00068 
00000000G 00 16 00068 
33 29 4 BR0 5) 
3 53 £9 00074 
55 6E D1 00077 6$: 
1F 13 OOO7A 
52 6E 08 c3 0007C 
50 10 A2 00 00080 
38 AO 9F 00084 
FB98 =s«CF 01 FB 00087 
06 50 €E8 0008C 
03 54 €E9 OO08F 
54 50 b0 4944 
6E 0c A2 00 00095 7$: 
DC 11 00099 
50 55 DO 00098 8$: 
00000000G 00 16 OO009E 
53 50 DO O00A4 
04 53 €8 OO0A7 
50 53 DO OOOAA 9$: 
04 QOOAD 
50 54 DO OOOAE 10$: 
04 000B1 


bytes, Routine Base: _SMGSCODE + 120B 


1 !<BLF/PAGE> 


Be 19:69:48 


AX-11 Bliss-32 V4.0- 


PBD_A_PBCBCROJ, PBCB 
DISPCAY_ID 
(RO), SDISPLAY_ID 
(RO), #17 
#SMG$_INVDIS_ID, RO 
@DISPLAY_ID, DCB 
a emeRO R5,SP> 
#3, SMGSSLOCATE_PP 
RO STATUS 
STATUS, 
#, RET_STATUS 
SMGS$BEGIN_PASTEBOARD_UPDATE_R1 
STATUS 


STATUS 

PP, PBCB 

8$ 

#8, PP, PP BASE 

16(PP_BASE, DCB 

a" SMGSDELETE_VIRTUAL_DISPLAY 
RET STATUS, 7$ 

STATUS, RET_STATUS 
12(PP_BASE). pp 

PBCB, RO 
SMGSSEND_PASTEBOARD_UPDATE_R2 
RO, STATOS 


STATUS, 10$ 
STATUS, RO 


RET_STATUS, RO 
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PEAT LINKS - Virtual Dis 
ASTE_VIRTUAL_DISPLAY = R 
ZSBTTL erie’ cae VIR 
GLOBAL ROUTINE SMGSREPA 


le¢ 


i FUNCTIONAL DESCRIPTION: 


pasteboard. It 
r cover of a 


screen while 


CALLING SEQUENCE: 


FORMAL PARAMETERS: 
DISPLAY_ID.rl.r 
PASTEBOARD_ID.rl.r 


PASTEBOARD_ROW.rl.r 
PASTEBOARD_COL.rl.r 


IMPLICIT INPUTS: 
None 

IMPLICIT OUTPUTS: 
None 

COMPLETION STATUS: 
SS$_NORMAL 
SMG$_INVDIS 


1D 
SnGs. INVPAS- ID 
SMG$_WRONUMARG 


ee ee EE EE EE EE EEE EEE EEE EEE EEE EEE EEE Te 


play Linkages 
epaste virtual d 1 


TUAL_DISPLAY = pepe aste virtual display to pasteboard' 
STE_VIRTUAL_DISPLAY ( 


same pasteboard. She 
unde SMG GS$BE 
SMGSSEND SASTEBOARD aUFDATE 2 pal r so that iFere is no effect on the 
t is going *.. 

operation +5 visible. 


ret_status.wlc.v = SMGSREPASTE_VIRTUAL_DISPLAY 


dD 3 
1erSep-1986 19:09:68 — ESmarti esnedsman!Si In-652;1 


DISPLAY _ID, 
PASTEBOARD_ID, 
PASTEBOARD_ROW, 

PASTEBOARD_ COL 
= 


The s spec Sites ereauet display is ‘‘unpasted"’ from the specified 


Bhs a *% — new position to the 
pest Rey 28 astie Bgt? las: is done 
INe ph TEBOARDS UPDA 


nly the completed results of the 


PASTEBOARD-ROW.rl.r 
PASTEBOARD-COL.rl.r5 


Id of virtual display to be repasted. 


The pasteboard id of the pasteboard on 
apse the unpasting/pasting is to take 
place. 


Row on pasteboard which is to contain 
row 1 of the specified virtual display 
after repasting. 


Column on pasteboard which is to contain 
column 1 of the specified virtual 
display after repasting. 


Normal successful completion 
invalid v 

Invalid pasteboard 

Wrong number of arguments. 


rtual Otsoley id. 


P 97 
29° (20) 


| 


3 
SMGSDISPLAY_LIN SMGSDISPLAY_LIN Display Linkages 16-5e -1984 00:29: AX-11 Bliss-32 V4.0-74 P 
Pat SMGSREPASTE_VIR ke > Ropeste virtual d 1 ~$007} 38% 90:89:68 SMGRTL.SRCISMGDISLIN.B 2:1 age 355 


SSMGSVALIDATE_ARGCOUNT (4, 4); ! Test for right no. of args 


SSMGSGET_PBCB(.PASTEBOARD_ID,PBCB); 
SSMGSGET~DCB(.DISPLAY_1D, BCBS; 


+ 

! Set up an extra level of output inhibiting so that our UNPASTE 

operation won't find its way to the screen until we're done. 
if wor (STATUS = SMGSSBEGIN_PASTEBOARD_UPDATE_R1 (.PBCB)) 


RETURN (.STATUS); 


4 
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4 
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4 
4 
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CNAME WN OO DOONOUS WO” 


4 
Unpaste it from where it is. 


i - (STATUS = SMGSSUNPASTE_VIRTUAL_DISPLAY (.DCB, .PBCB)) 


S 
P 
1 
1 
1 
689 E 
690 BEGIN 
691 SMGSSEND_PASTEBOARD_UPDATE_R2 (.PBCB); ! Reduce buffering level 


A vias (STATUS); Return error 


+ 
Now repaste to the same pasteboard in a new position. 


STATUS = SMGSSPASTE_VIRTUAL_DISPLAY(.DCB, .PBCB, 
.PASTEBOARD_ROW, .PASTEBOARD_COL); 


'¢ 
Undo one buffering level so that we are back where we started. 


SMGSSEND_PASTEBOARD_UPDATE_R2 (.PBCB); 
'¢ 
! If Last PASTE operation yielded an error, return that status, else 
return SS$_NORMAL ; 
"IF NOT .STATUS THEN RETURN .STATUS; 
RETURN (SS$_NORMAL) ; 


END; ! Routine SMGSREPASTE_VIRTUAL_DISPLAY 


Display Linkages 16- se0-1 1384 9: $3: 26 AX-11 Bliss-32 V4.0-74 Page 99 


MGSDISPLAY_LIN sneee S$ = Virtual “ 
= 836 MGSR UAL DISPLAY = Repaste virtual d 1 SMGRTLS SRCIJSMGDISLIN.B32;1 (20) 


OOFC 00000 -ENTRY SMGSREPASTE_VIRTUAL_DISPLAY, Save R2,R3,R4,-; 3605 


7 000000006 00 9€ MOVAB SMGSSEND_PASTEBOARD_UPDATE_R2, R7 : 
fH mag RES eAsER i 
1 1 BEQL ; 
50 000000006 &F v6 i MOVE #SMG$_WRONUMARG, RO : 
50 08 ¢ 06 1D 1$: HOVE oppress RO : 3674 
66 : D1 4 CMPL » PBD_L_COUNT : 
14 é BGTR Be ; 
08 44 AG 0 £0 BBS RO, PBD_V_PB_AVAIL : 
50 000000006 &F BO i D 28: OVL #SMG$_IRVPAS~1D, bg ° ; 
54 4 A640 DO 00035 35: MOVL § PBD_A PBCBLROJ, PBCB F 
50 4 BC dO 900 A MOVL aDISPCAY_ID, RO + 3675 
046 BC a Ad D4 O0055 cMPL 36(RO), SDISPLAY_ID ; 
11 44 nd of 9045 CAPS $8(RO), #17 : 
50 000000006 &F oO 004 4$: MOVL #SMG$_INVDIS_ID, RO ; 
55 04 aC D0 a 5$: MOVL § @DISPLAY_ID, DCB F 
50 4 DO 0005 MOVL BCB : 3681 
“ 000000006 99 16 OO05A JS aoe tate PASTEBOARD_UPDATE_R1 
2E 4 E9 Sooes BLBC srr Tus e : 
4 Dd 00066 PUSHL : 3688 
5 DD 00068 PUSHL 0D B° ; 
0000v cf FB 0006A CALLS % SMGSSUNPASTE_VIRTUAL_DISPLAY : 
3 D O06F MOVL RO, STATUS ; 
07 E8 000 Q BLBS STATUS, 6$ F 
0 4 pO 0007 MOVL PBCB, RO + 3691 
67 16 0078 Js8 MGS$$END_PASTEBOARD_UPDATE_R2 ace 
7E Oc ac 7D 6 7C 68: MOVQ PASTEBOARD_ROW, -(SP) : 3695 
4 dd 6 PUSHL PBCB : 3698 
5 0D PUSHL DCB : 
0000v : , F 4 CALLS a, SHGSSPASTE. VIRTUAL _DISPLAY 
0 4 p C MOVL pace RO : 3704 
7 F JSB SMGS$END_PASTEBOARD_UPDATE_R2 ; 
94 ss E 1 BLBS STATUS, 8$ : 3710 
0 p 94 7$: MOVL STATUS. RO : 
50 01 BO 90098 8$ mOVL RO 2 371 
4 00098 RET ; : Har; 


; Routine Size: 156 bytes, Routine Base: _SMGSCODE + 12BD 


; 3473 3715 1 !<BLF/PAGE> 


3 
oh * > le LIN SMGSDISPLAY_LINKS = Virtual Display L inkooys 18-sep-1984 4 9: $3: 28 AX-11 Bliss-32 V4.0-74 
96 SMGSRESTORE_PHYSICAL_SCREEN = Restore physical 1 -Sep-1984 SMGRTL.SRCJSMGDISLIN.B352;1 
: 3475 rg 1 &SBTTL mote sre pa os J PHYSICAL SCREEN = Restore physical screen’ 
3; 347 71 1 GLOBAL ROUTINE SMGSRES STORE _PAYSICAL_ SCREEN ( 
; 347 at 1 PASTEBOARD_ID, 
; ef f} : DISPLAY_ID 
: r 0 7 ? 1 t+ : 
$ Hi 4 § : FUNCTIONAL DESCRIPTION: 
: tBs 724 1 This routine. reverses the effect of SHGSSAVE PHYSICAL_SCREEN, 
> 3484 (+f eR thereey pure ng the physical screen back t e office “it was 
3; 5485 7 § . 4 at jus pr or to the call to ang rte Ms PHYSICAL 
3 86 7 1! The disp a id returned by SMGSSAVE_PRYSICAL SCREENS must be 
3 4 4 8 : passed to this routine to allow the restoratTon to happen. 
: 489 g 0 | CALLING SEQUENCE: 
: 3491 7 ; 1 i ret_status.wic.v = SMGSRESTORE -PHYSICAL SCREEN ( 
3 349 7 1! BOARD_ID. rl. Ps 
3 ret f : ! } DISPLAY. IDvrl.r) 
: 495 , : | FORMAL PARAMETERS : 
: 497 738 «1! PASTEBOARD_ID.rl.r Address of a pasteboard id which is to 
3 $098 a7 : be "‘restored’’. 
: 3500 741 1! DISPLAY_ID.rl.r Returned display id invented to 
: 3501 oe gg re eegevesee unction 
; 206 745 1! his be the displa id returned 
3 st oe : by SMCSSAVE *FRYSCIAL SCREEN. 
: 3505 746 1! IMPLICIT INPUTS: 
; 3506 SB 
3208 oe i 
: 3509 750 1) IMPLICIT OUTPUTS: 
; 3510 751 #1! 
3843 rag yi aneins 
; 318 734 COMPLETION STATUS: 
: 3515 756 1! SS$_NORMAL Normal successful completion 
: 3516 et fe S. SMGS_ INVDIS_ID Invalid Display 
3; 3517 758 1! SMG$_ INVPAS_ ID Invalid Restsbtend” Id. 
: 3219 a 
: 3520 761 1 ' SIDE EFFECTS: 
; 3521 76 »§ NONE 
s 35 ¢ 765 1! 
3854 es 
: $282 re POCAL 
: 35 $ 76 DCB : REF SDCB_DECL,  ! Address of virtual display control 
3 3 4 , ' block involved. 
: 239 aa PBCB : REF $PBCB_DECL, ! Address of pasteboard control block 


] 
Poo 
| 
| 


43 | 
MGSDISPLAY_LIN SMGSDISPLAY_LINKS = Virtual Display Linkages 16-Sep-1984 00:29: AX-11 Bliss-32 V4.0-74 Page 101 
mitt SMGSRESTORE_PHYSICAL_SCREEN - Restore physical 1 ~300 7} 382 90° §9:08 SMGRTL. RCISMGDISLIN.B 2;1 9 021) 
§ ae PP : REF $PP_DECL, ! Address of the pasting packet that 
77 ' joins the virtual display to the 
2 ag ! pasteboard. 
rf STATUS; ! Status of subr. calls 
8 +8 '+ 
4 ? Validate number of arguments. 
see f § SSMGSVALIDATE_ARGCOUNT( 2,2); 
4 784 '+ 
- oe? Map pasteboard id into a PBCB address, and display id into a DCB addr. 
ete r8 ; SSMGSGET_PBCB ( .PASTEBOARD_ID, PBCB); 
547 788 SSMGSGET_DCB ( .DISPLAY_ID; DCB); 
305 150 5 14 
36 791 i Locate the pasting packet that joins this virtual display with this 
22) Le pasteboard. 
338 194 "  IF_NOT (STATUS = SMGSSLOCATE_PP ( .DCB, .PBCB, PP)) 
555 79 RETURN (.STATUS); 
339 ron 5 1 
558 799 i Invalidate our knowledge of where the physical scrolling region is on 
#44 500 ne screen, since we don't know where the non_SMG user may have left 
561 80 ie” 
56 80 PBCB Pe Ce WTOP SCROLL LINE} = Q; 
56 804 PBCB [PBCB~W~BOT-SCROLL-LINEJ = 0; 
OBB 
208 80 i Determine best way to clear affected area. If the whole screen is 
56 43 ! involved we erase the whole screen in one operation. If only part 
208 5 } of the screen is involved, we have to do it a line at at time. 
296 11 IF .PP CPP_W_FIRST_WCB ROW] LEQ 1 AND 
3) aig wi’ PP~W_LAST_@CB_Row) GEQ .PBCB CPBCB_B_ROWS) 
378 13 BEGIN ! Full screen involved 
575 16 i Clear the whole physical screen to get rid of what the non-SMG 
278 ; user may have put there. 
278 13 4 if ee (STATUS = SMGSSERASE_PASTEBOARD (.PBCB)) 
5 ¢ 1 RETURN (.STATUS); 
3 § § END ' Full screen involved 
: 5 ELSE 
fs 5 BEGIN ! Only part of screen involved 
5 § i Clear only the part of the screen involved. We'll have to do 


7 
3 | 
irtual Display Linkages 1b-se -1984 00:29: AX-11 Bliss-32 V4.0-74 P 0 
SCREEN © Restore Dheeteal iZasep-iobe Sesbescs — Lekent Obhessae Ee Nes 5. age 39 
lin in 


e by Line. 
e code to do that should peek ty reside in module SMGMINUPD 
or modularity. However, it is here for now. 


LOCAL 
WCB : REF S$WCB_DECL; ! Addr of window control block 
! involved. 


WCB = .PBCB CPBCB_A_wCB); 


! and emit erase sequence. Setting the cursor to column 1 of 
' the Line is necessay for non-VT100 terminals. 


ince 1 FROM .PP CPP_W_FIRST_WCB_ROW] TO .PP CPP_W_LAST_WCB_ROW] 
+ pn ' Row by row 
; Set cursor to column 1 of row .I. 
SMGSSF IND_MIN_CURSOR_POS ( 


“WCB (WCB_W_OLD_CUR_ROW], 
WCB CWCBTW7OLD"CUR"COL]. 


i): 


SF 


3s 


' Current row 
' Current col 
' Desired row 
' Desired col 


'¢ 

' Get escape sequence needed to erase a Line. 
' (Can't move this outside the ,oge since data is left 
} in memory that FIND_MIN_CURSOR_POS 


es ss a 1 = 2 hs 


MEW] O OONO UNE WP 0 OBO UF WO 


might touch. 


SSMGSGET_TERM_DATA(ERASE_WHOLE_LINE); 


'¢ 


+ 
! For 4 bs Line involved, set cursor to column 1 of that Line 
Erase the Ith Line. 


IF NOT (STATUS = SMGSSOUTPUT ( . 
-PBCBLPBCB_L 
-PBCBLPBCB_A 


N 
RETURN (.STATUS); 


P 


BCB 
CAP LENGTH] 
“CAP~BUFFER}S) 


THE 


| 
END; ! Row by row 

END; ! Only part of screen involved | 

'¢ 
' Pop off the virtual qisplay that SMGSSAVE_PHYSICAL_SCREEN placed on 
top to cover everything up. | 


IF NOT (STATUS = SMGSPOP_VIRTUAL_DISPLAY ( .DISPLAY_ID, 
PASTEBOARD. ID)) 


WMmFwn—O 


THEN 


?; 
SDISPLAY_LIN eneeel 3 LAY. LINKS = Virtual Display Linkages 1b-5e Sep-1 9: AX-11 Bliss-32 V4.0-7 P ‘oa 
e MGSRESTORE PHYSICAL SCREEN © Restore Dhegteal loekepetone $369.08 — Femcrte Saeismep tet ww e271 meray 
; § : RETURN (.STATUS); | 
28 RETURN (SS$_NORMAL) ; | 
: 3650 END; ! End of routine SMGSRESTORE_PHYSICAL_SCREEN 
| 
03FC 00000 ENTRY Ean PHYSICAL _SCREEN, Save R2,R3,R4,-; 3717 
00000000' FF 96 9002 OVA papel a ; 
¢ §§ o¢ CMPB aos. _* : 3782 
p 13 6 F BEQL F 
50 000000006 &F v0 0 if OVE #SMG$_WRONUMARG, RO ; 
50 c D0 0918 1$: MOVL § @PASTEBOARD_ID, RO : 3787 
Oh 19 0001 BLSS : 
69 9 D1 OO1F CMPL RO, PBD_L_COUNT : 
14 00 2 BGTR 2$ : 
08 44 Ad 0 £0 000 BBS RO, PBD_V_PB_AVAIL : 
50 000000006 &F D0 00 9 28: ROVL #SMG$_IRVPAS"ID, bg 
53 4 A940 DO 00 1 3$: MOVL pep A pacer Ro) PBCB : 
0 BC 00 00 MOVL DISPLAY : 3788 
08 8c Ad Dt 99 A CMPL ae tRO). "spr SPLay. ID ; 
11 “. s of 0041 CMPB 8(RO), #17 : 
08 13 00 43 BEQL ; 
50 000000006 8F v6 0 47 4$: ROVE WSMG$_INVDIS_ID, RO : 
50 08 BC DO 0004F 5S: MOVL § @DISPLAY_ID, DCB : 
04 ar OF 8 23 PUSHAB PP - : 3794 
BB 00 é PUSHR #*M<RO,R3> : 
0000v CF ; F 2 CALLS a3, SMGSSLOCATE_PP ; 
56 09 MOVL RO. STATU : 
27 $ E BLBC status 6 : 
00F4 C3 D4 0006 CLRL 44 ( ae + 3803 
52 4 AE D0 67 MOVL PP, R : 3811 
01 ia : CMPW 3s 7 (2), ; 
1c (1A of BGTRU 7$ : 
50 SF OAS OOA MOVZBL 93 Pp 8), + 3812 
1 i ae a ; 
DD 00078 PUSHL PCB : 3819 
000000006 00 1 F 7D CALLS #1, SMGSSERASE_PASTEBOARD ; 
58 0 D MOVL RO. ST Us ; 
5 7 BLBS stATUS, 128 ; 
00 A gs: BRW 3$ 3 Beh 
54 08 As DO $: VL (PB 8), WCB : 
8 1 A2 3¢ 1 MOVZWL 49(R2), RB ; 846 
Q0F ¢ C3 OE 9 VAB 32 (PBtB) R? ; 
5 9 C3 9 A VAB : (PBCB). R5 ; 
2 ;s 5 OF MOVZWL 47(R2), I + 3873 
52 D A3 a f ; 


TS 


k 3 
SMGSDISPLAY_LIN SNGSDISPL AY _LINKS = Virtual Display Linkages 16-Sep-1984 00:29: AX-11 Bliss-32 V Page 1 
1-096 MGSRESTORE-PHYSICAL_SCREEN = Rosters phys cal 12: See- 382 90:69:48 eMGRTLe SRCIS Sheps itn B82: :1 son 
7 11 aS BRA 11$ : 
1 OD OO0A7 8S: PUSML #7 : 
£ A9 PUSHL 3 
7E 36 A AB CVTWL 46 38(WCB), =(SP) : 
7E 4 Ab 52 ‘ cVTWL 36 (WCB) -(SP) : 
000000006 00 o3 F B CALLS We SMGS$F IND_MIN_CURSOR_POS : 
6 p BC TSTL (RP) : 
4 B BNEG 9S : 
$3 p C CLRL (RS) : 
1 000¢ BRB 10$ : 
§ AE D4 C4 9S: CLRL INPUT_ARGS 3 
AE 9F 000C PUSHAB INPUT ARGS : 
0104 g dD OOCA PUSHL 60(PBCB) : 
D ce PUSHL R : 
9100 ¢ F 0000 PUSHAB 256(PBCB) : 
10. AE 1pBOC«SFEC«3C 9004 MOVZWL #475, 16(SP) : 
10 AE F OOODA PUSHAB 16 (SP) : 
DD 00000 PUSHL R ; 
000000006 00 F OODF CALLS 4&6 SMGSGET_TERM_DATA : 
31 E + LBC status 15$ ; 
0104 C3 DD OO0E9 10$: PUSHL 60 PBCB) : 
: DD OO0ED PUSHL (R ; 
DD OOOEF PUSHL ne ; 
000000006 00 g FB OOOF1 CALLS , SMGSSOUTPYIT : 
36 0 »D Ors MOVL RO : 
1 26 E9 OOOFB BLBC STATUS, 13$ ; 
AS 52 F3 QOOOFE 11$: § AOBLEQ ; 
04 AC 0D 10 12$:  PUSHL PASTEGOARD _ ID : 
08 AC DD 001 PUSHL D SPLA ; 
FDAS CF FB 00108 CALLS P SRCSPOP_ VIRTUAL_DISPLAY 3 
56 DO 00100 MOVL R STATUS : 
04 6 € O119 BLBS STATUS, 14$ : 
50 56 0113 13$:  MOVL ST ne RO : 
4 0116 RET : 
50 01 DO 00117 14$: MOVL ~ RO 3 
4 OO11A 15$: — RET : 


; Routine Size: 283 bytes, Routine Base: _SMGSCODE + 1359 


; 3651 3892 1 !<BLF/PAGE> 


17856 


en 
DIDIVISIVIVIW) 


DO. 
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WN" ODOONOUS 


3 


. 


=—QOODNOVUES WN "CO OONOUS wh 


WA AA ANAM AANIINNINIIIUNUN 3S 3 3 
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- 


ERE 
wis 
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— 


ZSBTTL ‘SMGSSAVE_PHYSICAL_SCREEN =- Save prystcat screen’ 
GLOBAL ROUTINE SMGSSAVE_PRYSICAL_SCREEN 
 PASTEBOARD. ID, 


DISPLAY 
DESIRED ROW, START, 
DESIRED=ROW “END 

= 


ee 


FUNCTIONAL DESCRIPTION: 


aves routine should be called before out ust a Che sags. which 
may perform output to the screen wipeeus - ng 
S procedure saves the state of t can be 
ee Foy via a later call to enCERESTORE. TSRYSICAL. "SCREENS 


iets routine performs 4 functions: 


a). Creates a virtual display eyise is as wide as the 
physical screen and is as hi y ene reatee by the 
desired_row_start and desired_row 
The resulting virtual display id is” 2 ae 
to the caller. 


b). Pastes this virtual display to cover the screen at a 
position corresponding to column 1 of desired_row_start. 


c). Set the physical cursor to (1,1) in the virtual »Steptay. 
This corresponds to (desired_ row Start, 1) on the 
physical screen. 


! 

! 

' 

' 

' 

! 

' 

' 

' 

' 

! 

' 

' 

' 

' 

1 

! 

! 

' 

1 

: d). Set the physical eerett ia region to be the height 
of the resulting virtual display. 
: If either desired_row_start or desired_row_end are omitted, 
! the first row of the physical display and fhe Last row of the 
: P ayetees orpoley are used, respectively, in calculating the 
eight of the virtual displ ay. 

! The effects of this routine can be reversed by doin = Be 

; SMGSRESTORE_PHYSICAL_SCREEN (Display_id.ri.r, Pasteboard_id.rl.r), 
supplying the display_id returned by” this routine. 

! 

' 

1 

' 

' 

! 

! 

' 

' 

! 

' 

' 

' 

' 

' 


i CALLING SEQUENCE: 
i ret_status.wic.v = SMGSSAVE ~PHYSICAL 


STEBO 
DISPL 

IDESIR 
»DESI 


START. rl.r 
“END. rl. by? 


‘mus 5 


i FORMAL PARAMETERS: 
PASTEBOARD_ID.rl.r Address of a pasteboard id which is to 

be ‘saved’. 

DISPLAY_ID.wl.r Returned display id invented to 

perform requested function. 


(tn b$251 
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MGSDISPLAY_LIN oMGSDISPLAY_ LINKS - Virtual Displa Linke es -Sep-1984 9: AX=11 Bliss-32 V4.0-7 Page 106 
wit SMCSSAVE-PHYSICAL_SCR SCREEN = Seve’ phtet cal Screen 12-888 Sep 71382 99: 83 88 SMGRTLe SRCIJSMGDISLIN. a 2;1 9 396 


: 3710 950 1! 3 
: 3711 99) 3 3 DESIRED_ROW_START.rl.r Oot ional. The address of the Ist row : 
: Ne .] 1! o be seve ed''. If omitted, row 1 of . 
3 i? 4 ? : the physical display is used. ; 
; 3715 983 1} DESIRED_ROW_END.rl.r Opt tonal. The address of the last row : 
3 rg 328 zz to be ‘‘saved’’. If omitted, the last 7! 
: 371 9 7 f row of the physical display is used. > 
; 3718 958 1 ! IMPLICIT INPUTS: 3 
; 3719 9 1} ; 
3 f 0 960 1! NONE ; 
: 1 961 1! ; 
3; 37 § 9 1 ! IMPLICIT OUTPUTS: 3 
; 37 965 1! ; 
3: 3724 964 1! NONE ; 
3; 3725 965 1! ; 
: 37 8 966 1 ! COMPLETION STATUS: 3 
3; 37. 967 1! ; 
; f : +3 : ; SS$_NORMAL Normal successful completion ; 
3 3780 970 1 i From: SMGSCREATE_VIRTUAL_DISPLAY Ps 
; ey 44 | LIBS_INSVIRMEM Insufficient virtual memory : 
: F3 97 1 ! From: SMGSPASTE_VIRTUAL_DISPLAY : 
: 3734 974 1! SAG$_INVPAS_ID Invalid Pasteboard Id. ; 
3 t3? 975 1! 3 
3; 3736 376 1! F 
3; 3737 977 1 ! SIDE EFFECTS: 3 
3 338 978 1! 3 
3; 3739 979 1! The pperopriase part of the pozsices screen will be blanked, , 
3 oe 980 1! scrolling region will be full height of the past to be ‘‘saved"’, ; 
3; 3741 981 1! and cursor will be at (desired_row_start,1) on screen. ; 
s Ho 982 1 !-- : 
: 374 983 1 3 
3; 3744 984 BEGIN : 
; 3745 985 BUILTIN 3 
3; 3746 986 NULLPARAMETER; : 
3: 3747 987 3 
; 3748 988 LOCAL 3 
3; 3749 989 ROW!, ! Resulting Ist row : 
3; 3750 990 ROWN, ' togicatt last row 3 
3; 3751 991 FULL_SCREEN, ' Logical neiceting that we : 
3 P36 236 ' are savi ng the whole screen. $ 
3 Pe? 6§ PBCB : REF $PBCB_DECL, if Address of pasteboard control ; 
3; 3755 995 3 
3 Le 336 NEW_DCB : REF SDCB_DECL, ' Address of a display control PF 
; 375 99 ' block. This will also 3 
3; 3758 +44 i become the display_ 3 
: 54 i ! returned. : 
; 3761 4001 STATUS; ' Status of subr. calls é 
; 376 4 § 3 
: 376 4 '¢ 3 
: 3764 6 i Validate number of arguments and get the PBCB that goes with the é 
; 163 : 5 i. Pasteboard id. : 


PY Pipes COM RR en eri ee ee ee Se We Si te ag eo oe] 


Nn 3 
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att wLIN SAGSSAVE PHYSICAL. SCREEN = Save prysicol sereen locsene19n4 $3:605c8 — Femante She Sshepy eign o$2s1 9° 39) 

: re? $8 7 SSMGSVALIDATE_ARGCOUNT( 2,4); ; 
: 788 é9 5 SSMGSGET_PBCB ( .PASTEBOARD_ID, PBCB); ‘ 
: 3771 aot} ‘+ ; 
3 ure : \§ ;_Assume full screen case and intialize accordingly : 
: 3774 doi FULLSCREEN = 1; ! Assume full screen ; 
: 3775 4015 ROW] = 1; 3 
; 176 4016 ROWN = .PBCB CPBCB_B_ROWS); : 
; 178 4018 gis ; 
3 a4 ret 4 } See which optional parameters were supplied and re-adjust assumptions. : 
: ri $3 1 ‘ 4 ad NULLPARAMETER (DESIRED_ROW_START) : 
; rs 40 g BEGIN ! Desired_row_start specified ; 
: 3784 4024 FULL SCREEN = 0; ; 
: 3785 4025 ROWI= ..DESIRED_ROW_START; : 
; res $3 § ND; ! Desired_row_start specified : 
; 788 4038 IF NOT NULLPARAMETER (DESIRED_ROW_END) 
: 3790 4030 BEGIN ! Desired_row_end specified 3 
3; 3791 4031 FULL_SCREEN = 0; ; 
: 379 403¢ ROWN”= ..DESIRED_ROW_END; ; 
; La ret ND; ! Desired_row_end specified : 
: 3795 4035 i If either of the optional row parameters were supplied, make sure $ 
3 136 rt :_we got a consistant range. : 
: 198 4038 IF NOT .FULL_SCREEN ; 
: 3800 4040 BEGIN ! Validity check on rows 3 
; 3801 4041 IF .ROW1 LSS 1 OR ! Start off top F 
$ S06 t8e§ -ROW] GEQ .PBCB CPBCB_B_ROWS) -1 OR ! need 2 Lines to scroll : 
; 404 oR R ! End off top é 
: 3804 4044 -ROWN GTR .PBCB CPBCB_B_ROWS) OR ! End off bottom : 
; 3805 4045 . - .ROW] LSS 1 ! Wrong order : 
: ane rt 4 THEN é 
; 380 404 RETURN SMG$_INVROW; ; 
; 3808 4048 : 
: tts 4050 END; ! Validity check on rows : 
: 3811 4 ‘+ 3 
: \¢ iss ' Create a virtual display the same width as the physical screen and 3 
3 i $82? as high as desired. : 
> 3815 4055 IF NOT (STATUS = SMGSSCREATE VIRTUAL DISPLAY ( ; 
; 1g $328 EF ( .ROWN = .ROW1 +1), ! # rows 3 
> 381 405 ZREF (.PBCB CPBCB_W_WIDTH]), | # columns ; 
3 8 $028 NEW DCB, ! new disp. id 3 
3 381 405 ZREF(O), ' default display attr 3 
3 0 4 ZREF(O), ' default vid 3 
: ; i084 peer ) ' default alt char set : 
: : 4 : THEN : 


| 
| 
eo attr 
| 


SMGSDISPLAY LINKS = Virtual Display "Linkages 
SMGSSAVE_PHYSICAL_SCREEN = Save physical screen 14-Sep-1984 


SAGSDISPLAY_LIN 
1-096 


IWW'N'AAAAANWNIWPporerrr 


MEW O ODONOU SW ODO ODNOUSWN—OOONOUS 


&Pruw 
S oO 
COCOONS NINN NI NNO AO 


MEW OODONOUES WN OOONO 


1444 


Wn & & 


WAWAWAAWAANANANNA tw 


WW 
00.000 


RETURN (.STATUS); 


'4 


18-sep-19 4 


73:65:68 ESMcntuesnedsncolscin 


i Paste newly-create virtual display to (desired_row_start,1) of 


pasteboard. 
IF NOT (STATUS = meter lalate tate ( 
“PBCB, i 
MREF (1))) ! 


THEN 
RETURN (.STATUS); 


'4 


DCB address 
Pasteboard control block 


| Set physical scrolling region to be full height of screen. 


IF NOT (STATUS = SMGSSFORCE_SCROLL_REG ( .PBCB, ! Pasteboard 
~ROW1 ' Top row 
;ROWN) ) ! Bottom row 
THEN 
RETURN (.STATUS); 
'¢ 
} Return id of newly-create virtual display to caller. 
-DISPLAY_ID = .NEW_DCB; 
RETURN (SS$_NORMAL); 
END; ! End of routine SMGSSAVE_PHYSICAL_SCREEN 


—nororonronororopororny 


001C 00000 
54 00000000" EF 9 ait 
SE 1¢ f 0009 
50 6C 9¢ 0000C 
02 50 91 0001 
08 18 0001 
50 000000006 8F ? id 
4 bi 
50 04 BC DO 0001D 1$: 
A 19 00021 
64 Q D1 00023 
5 14 3 8 
08 44 AG 0 €0 
50 000000006 8F ? D 2$: 
33 04 A440 D 5 3$: 
pe 
8 BH 
6C 91 00045 


- Sp 
#2, (AP), DIFF 
DIFF. #2 


#SMG$_WRONUMARG, RO 

@PASTEBOARD_ID, RO 

Bee PBD_L_COUNT 
PBD_V_PB_AVAIL 


RO, 3$ 
#SMG$_INVPAS"1D, RO 


PBD_A_PBCBLRO], PBCB 
#1, FOLL_SCREEN 


Sete Se Se Se Se Se Se Se Se Se Se Se Se Se Sete Be Be Se 
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3894 


4007 


4009 
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; "boo SMGSSAVE_PHYSICAL_SCR REEN - Save phys cal Seren 4 =30-1 382 9: 89 ‘28 SMGRTL.SR ReismeD! Vetgne 5 2:1 ’ 33} 
OC 1F 00048 BLSSU 4$ ; ; 
0c aC b3 4A TSTL  12¢AP) : ; 
9 1 40 BEQL 6 4 : : 
0 D4 Our CLRL - FULL_SCREEN + 4024 ; 
18 AE 0c BC BO 1 MOVL abeSTRED _ROW_START, ROW1 + £025 ; 
04 6¢ 1 00 : 4$: CMPB ss CAP), + 4028 ; 
B iF 00 BLSSU  5$ : : 
10 AC D3 38 TSTL 16(AP) : : 
98 1 BEQL 5$ 3 : 
D4 0006 CLRL -FULL_SCREEN + 4031 ; 
52 10 Bf D 06 MOVL @aDESTRED_ROW_ Ww. ROWN : 4032 : 
2F E 0 6 5$: BLBS PULL SCREEN, + 4038 F 
” 23 F2 dose gies a8 Sts : 
50 SF A3 aA D006 MOV ZBL 95 (PBCB) , RO + 4042 : 
- 8 EO bors os TE ale 
Sib Ge fom bed 
SFA 08 00 FD O007E CMPZV #0, #8, 95(PBCB), ROWN 3 4044 ; 
50 18 AE 01 C1 00086 ADDL3 #1, ROW1, RO + 4045 : 
+“: 88 38 OOORE ioke ; 
50 000000006 gf p0 90090 6$: MOVL #SMG$_INVROW, RO ; 40467 3 
10 AE D4 00098 7s: CLRL =: 16 (SP) + 4061 ; 
10 AE 9F 00098 PUSHAB 16(SP) : : 
10 AE D4 0009 LRL 16 ( SP) : 4060 ; 
10 AE 9F OOOA PUSHAB 16(SP) : 3 
10 AE .D4 OO0A4 LRL =: 16 (SP) : 4059 ; 
10 AE °9F O00A7 PUSHAB 16(SP) ; : 
20 AE OF OOOAA PUSHAB NEW DCB : 4055 : 
Ko OA ge BRUINS Retgsey. zocsr Fred Bat 
50 52 2c AE C3 00085 SUBL3 ROW1, ROWN, RO : 4056 ; 
iis: 4, OME. OOF OO0BE ROVAB ings, 0¢SP) ; 
oocoOv CF 06 FB 000C CALLS #6, SMGS$SCREATE_VIRTUAL_DISPLAY : : 
0 50 €9 000C BLBC STATUS, 8$ > 4055 : 
10 01 DO OO0CA MOVL #1, 16(SP) : 4074 ; 
10 AE 9F OOOCE PUSHAB 16(SP) ; ; 
1¢ AE OOF 6 D1 PUSHAB ROW! : 407 ; 
53 DD 00004 PUSHL  PBCB : 407 : 
20 AE OD 06 PUSHL NEW_DCB : 40717 : 
0000v CF 4 FB 0000 CALLS #4, SMGSSPASTE_VIRTUAL_DISPLAY : : 
19 & ODE BLBC STATUS, 8$ : 4070 : 
DD OO0E PUSHL ROWN + 4084 : 
1¢ AE 0D 000E3 PUSHL ROW! > 4083 : 
53 DD E6 PUSHL pace : 4082 : 
000000006 00 g FB eg CALLS #3, SMGSSFORCE_SCROLL_REG : 3 
08 14 AF D Fe MOVL NFW_DC6, @DISPLAY_ID : 4091 : 
0 p F MOVL #1,7R : 409 : 
4 FA 8$: RET : 409 : 


SMGSDISPLAY_LIN SMGSDISPLAY 
1-096 SMGSSAVE_PH 


; Routine Size: 


>; 3856 


251 bytes, 


INKS = Virtual Display Linkages 


ICAL_SCREEN = Save physical screen 


Routine Base: 


4096 1 !<BLF/PAGE> 


_SMGSCODE + 1474 


1 
1 


AX-11 Blis 
SMGRTL.SRC 


4.0-74 


SLIN.B52;1 


4 
SMGSDISPLAY_LIN SMGSDISPLAY_LINKS = Virtual Dis splay Linksges 16-5 sen-1986 00: $3: 26 AX-11 Bliss-32 V4.0-74 Page iit 
SMGSSET_DISPLAY_SCROLL_REGION = Set scrolling r 14-Sep-1 SMGRTL.SRCJSMGDISLIN.B 2;1 (23) 
; 8 4 4 } XSBTTL nGSSET pisekey SCROLL_REGION = Set scrolling region in a virtual display’ 
H & 8 GLOBAL ROUTINE SMGSSET_BISPLAY-SCROLL _REGION® ( 
; se 4099 1 DISPLAY_ID 
; 3861 4100 1 TOP_LINE Of REGION 
3 86 4191 BOTTOM. LINE=OF REGION 
b = 
; 3864 41 : 1 lee 
; sez re : : FUNCTIONAL DESCRIPTION: 
; Be? 41 $ 1/ This routine sets the to -_ (gre Linge of a ‘scrolling region’ 
>; 3868 41 1! ina virtue) display. The scro mf oh on Limits —- used by 
3 £92 4108 1! output revs ne $ whign ecroll CNGSP T 7 i HASCROLL an 
; 3870 4109 1! SMGSPUT_LINE Wi th Line advancing). IF thi§ routine ‘s catied 
: 3871 4110 1! with only a di Hy id, the scrolling vantan defaults to the 
3 4 qi } entire display. 
: 3874 a118 1/ If a top and bottom Line are passed, they must be within the 
>; 3875 4114 1! display bounds. Scrolling can not occur outside the bounds of 
: 3B7 ra Fagen: 
: 3878 4117 1! This routine does not change the appearance of the screen or the 
3 $502 4118 1! cursor position. 
; 3880 4119 1! 
; rt re Y \ CALLING SEQUENCE: 
: B83 41 § 1 ret_status.wic.v = SMGSSET_DISPLAY_SCROLL_REGION ( 
; 3884 41 1! ISPLAY_ID.rl.r 
; 3885 41246 1! ’ TOP_LINE_OF “REGION N.rl.r] 
; 3886 4125 1! -BOTTOM_ LINE_OF _REGIO ON Fler) 
: 3887 41 S 1! 
; 3888 41 1 ! FORMAL PARAMETERS: 
; 3889 4128 1! 
; 44 re ? : } DISPLAY_ID.rl.r Display id of desired display. 
; 3892 4131 1 | TOP_LINE_OF _REGION.rl.r Optional. The top Line of a scrolling 
3 oh et § : region. Defaults to Line 1 of the display. 
; 3895 4134 1 | BOTTOM_LINE_OF _REGION.rl.r 
>; 3896 4135 1! Optional. The bottom Line of a pqretl ing 
; 3897 41 § 1! reaion. Defaults to the bottom Line of the 
: Boe ot : display. 
: 3900 t139 1 | 
H 30) aiey 1 ! IMPLICIT INPUTS: 
3908 ti42 1 i NONE 
; 3904 t1e8 1 i 
3; 3905 4144 1 ! IMPLICIT OUTPUTS: 
[ee 
: 908 a1e? 1} 
; 910 cies : : COMPLETION STATUS: 
: 3911 4150 1! $S$_NORMAL Normal tine t3'te completion 
: ae 4151 1! SMGS_INVARG Bottom | s less than or equal to top Line. 
3; 391 £136 Zz SMG$_INVROW Row number is negative or too large 
3 3914 4155 1! SMG$_WRONUMARG Wrong number arguments. 


-—n 
‘Zz 


SMGSDISPLAY_LIN 
1-096 


09 09 G9 CD C9 C9 C9 9 C9 SI INI NINI NI NINN NIOA AAO OAAOOUIIUIUIVIW «OG 
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F 4 
YSSCROLLLREGION = Sek scrotting r inqsep-i9ee 19:69:48 — Sment Saedsmanisi tn-892;1 


! 
NONE 
" BEGI 
BUILTIN 
NULLPARAME TER; 
TOP_LINE ! working top Line 
BOTTOM Li i working bottom Li 


ne 
Addr. of display control block 


LIN 
DCB : REF $6CB_DECL; 
SSMGSVALIDATE_ARGCOUNT (1,3); 
SSMGSGET_DCB ( .DISPLAY_ID, DCB); 


Get address of display control 
block 


'¢ 
Validate optional arguments. 
TOP_LINE = .DCB CDCB_W_ROW_START]; ! init to defauit 
gs NULLPARAMETER (TOP_LINE_OF REGION) 
EGIN 
IF ..TOP_LINE_OF REGION GEQ .DCB COCB_W_ROW START] AND 
g7 TOPLINE OF REGION LEQ .DCB CDOCB-W-NO_Rows) 
TOP_LINE = ..TOP_LINE_OF_REGION 


ELSE 
RETURN (SMG$_INVROW); ! can't be outside display 


BOTTOM_LINE = .DCB CDCB_W_NO_ROWS]; ! init to default 
IF NOT NULLPARAMETER (BOTTOM LINE_OF REGION) 
EGIN 
IF ..BOTTOM_LINE_OF REGION GEQ .DCB [DCB_W_ROW START] AND 
gj; BOTTOM-LINE =OF [REGION LEQ DCB DCB~W"NO_ROWS) 
BOTTOM_LINE = ..BOTTOM_LINE_OF REGION 


ELS 
ss RETURN (SMGS$_INVROW) ; ! can't be outside display 
IF .BOTTOM_LINE LEQ .TOP_LINE 
RETURN (SMG$_INVARG) ; ! can’t go backwards or 
! overlap 


'¢ 
: If we get here, we have a valid scrolling region. Store it. 


MGSDISPLAY_LINKS = Virtual Dis Linka 18-s¢ Sep-1984 9: AX=11 Li $$-32 V4.0 
~696 SMCSSET DISPLAY SCROLL REGION = Sek Scratting r iaakepel9Rs $9:60528 — Famant SAE SsheD Yeon oSos1 Page Jt5 
3 4211 
421 DCB C[DCB_W_TOP_OF_SCRREG] = .TOP_LINE; 
4 4g : DCB EDeBnw “BOTTOM: oF SCRREG] = .BOTTOM_LINE; 
4215 RETURN (SS$_NORMAL); 
$ 4216 END; ! end of routine SMGSSET_DISPLAY_SCROLL_REGION 
0004 .ENTRY SMGSSET_DISPLAY_SCROLL_REGION, Save R2 : 409 
50 6¢ 01 oe ited §UBB3 #1, (APY, DIFF ~ as se. : 1108 
0 30 91 9006 CMPB sé, #2 : 
0 1B 0000 BLEQU 1 : 
50 000000006 8F pO 900 MOVL #SMG$_WRONUMARG, RO : 
50 04 BC DO 00013 1$ MOVL @DISPLAY_ID + 4170 
04 BC 8 AO D1 0001 CMPL 56(RO), SDISPLAY. ID : 
06 12 0001C BNEG ; 
11 44 AO 91 OO1E CMPB 8(RO), #17 : 
08 13 909 BEQL ; 
50 000000006 8F bo 990 4 2$: MOVL #SMG$_INVDIS_ID, RO 3 
50 04 BC bd 900 C 3$: MOVL  @DISPLAY_ID, DCB : 
32 60 3¢ 000 6 MOV2WL (DCB), TOP_LINE + 4177 
0 6C 91 000 CMPB ss (AP), ” + 4179 
1A 1F 00036 BLSSU ; 
08 At D3 00038 TSTL 8(AP) ; 
15 13 00038 BEQL ; 
08 BC 60 10 99 FD 9005p CMP ZV #0, #16, (DCB), @TOP_LINE_OF_REGION + 4182 
08 BC 02 ad 10 90 ED boods CMPZV #0, #16, 2(DCB), @TOP_LINE_OF_REGION + 6183 
29 19 b004¢ BLSS ; 
52 08 BC oO OO4E MOVL 3top LINE_OF REGION, TOP_LINE + 4185 
51 02 Ao 3¢ 00052 4$ MOVZWL @ (DCB) BOTTOM_L : 4190 
03 6C 91 00056 CMPB , + 4192 
24 1F 00059 BLSSU ss” : 
Oc Ac D5 0058 TSTL  12¢AP) : 
1F 1 O06 BEQL : 
oc BC 60 10 09 FD 006 CMP ZV #0, #16, (DCB), @BOTTOM_LINE_OF _REGION ; 4195 
oc «BC 02 Ad 10 00 ED Goes CMPZV #0, #16, 2(DCB), @BOTTOM_LINE_OF_REGION : 4196 
51 0c fs 06 of MOVL @BOTTOM_LINE_OF REGION, BOTTOM_LINE ; 4198 
50 000000006 8F p6 O17 5$ MOVL #SMGS_INVROW, RO : 4200 
52 51 bt H &$ CHPL OTTOM_LINE, TOP_LINE : 4203 
50 000000006 gf b0 6 MOVL #SMG$_INVARG, RO ; 4205 
48 OA 52 8 7$ MOVW =‘ TOP_LINE 72(p¢B) > 421 
4A OA B MOVW BOTTOM LINE, 74(DCB) > 401 
5 01 p 94 MOVL ih > 401 
4 00097 RET > 4216 


SMGSDISPLAY_LIN 
Ht li 
3; Routine Size: 


; 3978 


H 4 
SHESSET. DISPLAY. SCROLL REGION = Set Scrot Ting r le-Sep-19B6 13:09:68 


152 bytes, Routine Base: 


4217 1 !<BLF/PAGE> 


-SMGSCODE + 156F 


AX-11 Bliss-32 
SMGRTL.SRCJSMGD 


Vv 
I 


a; Fn’ ot 
SLIN.B52;1 


ree 


; 
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44 
! FUNCTIONAL DESCRIPTION: 


4 
SDISPLAY_LIN SMGSDISPLAY_LINKS = Virtual Display Linkages 1b-se 1984 00:29: AX-11 Bliss-32 V4.0-74 P 15 
im88e SMGSUNPASTEVIRTUAL DISPLAY - Unpaste virtual d 1 ~$00n 138% 90:59:28 SMGRTL.SRCISMGDISLIN.B 2;1 age 33 
0 18 1 XSBITL ‘SMGSUNPASTE VIRTUAL_DISPLAY = Unpaste virtual display from pasteboard' 
1 19 1 GLOBAL ROUTING SMGSONPASTECOIATURL DISPLAV Re VU ee ent oe 
¢ DISPLAY_ID, 
 PASTEBOARD_1D 
= 
5 


ODOOOODOOOOO 


oo0°0 
ooo 


The specified virtual display is ‘‘unpasted’’ from a pasteboard. | 
Unpasting does not destroy the virtual ye pad or its contents. 
It merely removes its mapping to a particular pasteboard and 

hence its visibility on that pasteboard. 


i CALLING SEQUENCE: 


ret_status.wic.v = SMGSUNPASTE_VIRTUAL_DISPLAY ( 
PLAY_ID.rl.r 
i PASTEBOARD_ID.rl.r) 
i FORMAL PARAMETERS: 
DISPLAY_ID.rl.r Id of virtual display to be unpasted. 
PASTEBOARD_ID.rl.r The peesebeore id of the pasteboard from 
which the unpasting is to take place. 


SSSsessesesaeseseses 


None 
i COMPLETION STATUS: 


SS$_NORMAL Normal successful completion 
SMGS_INVDIS_ID Invalid virtual etsplay id. 
SMGS_INVPAS_ID Invalid pasteboard id. 
SMG$_WRONUMARG Brong number of arguments. 
SMG$_NOTPASTED Specified virtual display is not currently 
pestee to the spect fied pasteboard. 
isplay is batched. 


OWONO MVE WN 9 ODNO NEW 0 ODNO UE WN (CO OODNOU LS WOU 


PPADS BBP PLL LEE 


i SMG$_ILLBATFNC 
i SIDE EFFECTS: 


i] 
' 
a 
' 
' 
' 
] 
' 
' 
' 
' 
1 
i] 
' 
' 
4 
' 
4 
i] 
' 
i IMPLICIT INPUTS: 
' 
' 
' 
i] 
' 
! 
t 
' 
' 
' 
' 
' 
' 
' 
‘ 
' 
‘ 
; NONE 


NOVUEUN “OOO NOULSWN—O 


OOOOSOCOCOSOSSCOCOOCOCOCooooo 


i None 
IMPLICIT OUTPUTS: 
| 


Be Be Se Se Be Oe Se Be Se Se Se Se Oe Ge Ge Se Se Se Se Se Be Se Se Se Se Se Se Ge Se Os Oe Ge Se BH Se OH Se BH Os Oe Se SH Se Oe Oe es Oe Oe OHO SH Ose Oe Oe Oe ee ee 
F ak al lt ai tet ah tek hte th eh el eh ek eh el Re el Rl Nl Mh 

PREP E REP E PEPER PRP PP PPP PPP PEPE PPP ERP PPP PPP PPP PPP PPP 
FOIRIPOIAPINPOAPGARONINY 9 = OO Ss ss ss es nn a a in an a a a nS Ss ss 


MISSES ORES 


BEGIN 
O31 “AS TATUS, ! Status of subroutine call 
a pita REF EBGEAMGEtc, ASME Sf SlgtLacarEcs tl*tton 
5 SSMGSVALIDATE_ARGCOUNT (2, 2); ! Test for right no. of args 


i 
ad 


& 
SDISPLAY_LIN SMGSDISPLAY_LINKS = Virtual Display Linkages 16-Sep-1984 00:29: AX-11 Blisg-32 V4.0-74 Pa 16 
wt4 SMG A TE-VIRTUAL DISPLAY - Unpaste virtual d 1 350-1382 99:69:28 SNGRTL SRESSMGDI SEIN B82; 1 sats, 


; 4037 4275 ‘+ 3 
3: 4 4 8 ' Get addresses of virtual display control block and pasteboard control F 
: : : f block and validate display id and pasteboard id. ; 
i 404) é 3 SSMGSGET_PBCB ( .PASTEBOARDID, PBCB); 
Py ; vet agar o astevoarda contro . 
3 ¢ § 4g8) | block 4 
> 4045 4 SSMGSGET_DCB ( .DISPLAY_ID, DCB); ! Get addr of virtual display 3 
: rev | ? ! control block : 
: 4 4 te ; 
3 t0c8 & ! Give an error if the display is batched. : 
; 4050 4288 !- 3 
: 081 4289 : 
i 4058 4 IF .DCBCDCB_L_BATCH_LEVEL] NEQ 0 ; 
> 405 4291 THEN : 
i 405% 429¢ RETURN SMGS_ILLBATFNC; 3 
; 4056 4294 RETURN SMGSSUNPASTE_VIRTUAL_DISPLAY(.DCB, .PBCB) : 
; 4058 4296 1 END; ! Routine SMGSUNPASTE_VIRTUAL_DISPLAY ; 
0004 000 ENTRY SMGSUNPASTE_VIRTUAL_DISPLAY, Save R2 : 4219 ; 

52 00000000" EF 9 0000 MOVAB PBD_L_COUNT; R2 : ; 

0 71 000 ; CPB (APY, & ; 4273 ; 

50 000000006 8F 06 06 ROVE —#SMGS_WRONUMARG, RO ; 

50 08 BC DO 00016 18 MOV. —_@PASTEBOARD_1D, RO : 4279 ; 

A 1A BLSS $ ; ; 

62 pi goo1c CMPL RO, PBD_L_COUNT : : 

4 Q001F BGTR 2 ; 3 

08 “4 E 1 BBS RO, PBD_V_PB_AVAIL, 3$ : ; 

50 000000006 &F 6 28 MOVL #SMG$_IRVPAS“1D, RO ; : 

51 4 A260 D 38 MOVL  PBD_A PBCBCROJ, PBCB : ; 

C 4 BC D MOVL ISPCAY_ID, RO > 4283 ; 

04 BC 8 oA CPL (RO), SDISPLAY_ID : : 

1 ae | CPB (RO), #17 : ; 

50 000000006 BF 48: MOVE ASMGS_INVDIS_1D, RO 3 

50 Bc D 5$: MOVL ISPLAY_ID, DCB : ; 

A t sit (DCB) ~ > 4290 ; 

50 000000006 BF po MOVL —ASMGS_ILLBATFNC, RO : 4292 ; 

03 68: PUSHR #*M<RO,R1> > 4294 F 

0000v CF FS CALLS #2, SMGSSUNPASTE_VIRTUAL_DISPLAY (poe : 


re 


SMGSDISPLAYLIN SMGSDISPLAY LINES = Virtual Display Linkages 15-Sep-1984 00:29:22 YANe1! Blisg-3 


SMGSUNPASTE_VIRTUAL_DISPLAY = Unpaste virtual d SMGRTL 
; Routine Size: 101 bytes, Routine Base: _SMGSCODE + 1607 


; 4059 4297 1 !<BLF/PAGE> 


ee 


‘ es 
SOISPLAY_LIN SMGSDISPLAY_ LINKS = Virtual Display Linkages 18-se -1984 00:29: AX-11 Bliss-32 V4.0-74 Page 118 
iro8e SHGSSCALE PASTE. TRANSE - Calculate pasting tran 1 Hae Pi 99:89:45 SMGRTL.SRC SmeD ISIN 69251 ° AL 
; 4061 4 38 1 ZSBTTL "SMGSSCALC_PASTE_TRANSF = Calculate pasting transformation constants’ 
: tee : + : GLOBAL ROUTINE SMGSSCALC_PASTE_TRANSF ( PP : REF SPP_DECL ) = 
3 ¢ : ? 1 } FUNCTIONAL DESCRIPTION: 
3; 40 4 : 1! This procedure precalculates the constants needed to efficiently 
3; 406 4304 1! copy portions of the text and attributes from the virtual 
3 reve 4305 1! display buffers located in the DCB to the window buffer located 
: 406 4 $ 1! in the WCB 
; 4070 4307 1! This data is derived from the pasting relationship between 
; 4071 4308 1! the given virtual display and the pasteboard to which it is 
; 407 4309 1! pasted. Ine calculated constants are stored in the pasting 
: 407 4310 1! packet that reflects this pasting. 
; 4074 4311 1! 
; 4075 4 \§ 77 
: 407 4315 1 ! CALLING SEQUENCE: 
3; 407 4314 1! 
3 rt't4 ? 1? ! ret_status.wlc.v = SMGSSCALC_PASTE_TRANSF ( PP.mab.r) 
; 4080 4 3 1 ! FORMAL PARAMETERS: 
; 4081 4318 1! 
; 408 4319 1! PP.mab.r Address of pasting packet. 
: 408 4320 1! 
; 4084 4321 1°! IMPLICIT INPUTS: 
: 4085 4 ¢ 1! 
; $088 4 1! NONE 
; 408 4324 1! 
: 4088 4325 1 ! IMPLICIT OUTPUTS: 
: 4089 4 § 1! 
: 4090 4 iz NONE 
3; 4091 4328 1! 
: 409 4329 1 ! COMPLETION STATUS: 
3; 409 4330 1! 
; 4094 4331 1! SS$_NORMAL Normal successful completion 
; 4095 4 § 1! 
3 rte 4 1 ! SIDE EFFECTS: 
; 409 4334 1! 
3; 409 4335 1! NONE 
7 4 4 $ 1 f-- 
; 4100 4 1 
3: 4101 4338 BEGIN 
3; 41 § 4339 LOCAL 
3 41 4340 : BLOCK (8,BYTE), ! Temporary representation of 
3; 41 4341 ' display buffer area as 
3; 4105 6 § ' pro ected on window buffer. 
3 41 4 ocB : REF S$OCB_DECL, ' Addr of DCB involved. 
3; 410 4344 wCB : REF $WCB_DECL, ! Addr of WCB involved. 
; 4108 4345 PBCB : REF srecs peed: ' addr 9 PBCB involved. 
3: 4109 4 § OVERLAP : BLOCK (8,BYTE); ! Describes area of overlap 
; 4110 4 ! between virtual display and 
; rete ? 8 ! window buffer. 
3 e118 4350 PBCB = .PP CPP_A_PBCB_ADDR] ; 
3 4114 4351 WCB = oPece CPBCB_A_wtB) ; 
3; 4115 4 § DCB = .PP (P 
3 2118 4 
3 411 45354 '¢ 


P_A_DUB-ADDR) '; 
| 
| 
! 


sn SDISPLAY LIN LINKS = Virtual Display Linkages 16- se0-1984 00:53:08 AX-11 BLi legene Ver 


Y P 19 
PRE TE_TRANSF = Calculate pasting tran 14-Sep-1 SMGRTLe SRCIJSMGDIS On B82: ;1 age 33) 
M 


ark the border label as being invisible until it proves otherwise. 


SP 
AL 
PP [PP -W ~LABEL ee ! MOVE] = 0; 
PP [PP"W-SRC_LABEL = Y; 
PP CPP W UrDSTILABEL” OFF = 0; 
TEMP CDCB_W_ROW START) = .DCB [DCB_W_ROW START] + .PP CPP_W_ROWJ-1; 
TEMP [DCB_W_NO ROWS) -DCB LOCB_W_NO Rows); 
TEMP LDCB_W_C -DCB LOCB_W_COL STAR 
TEMP LDCB_W_N -DCB LOCB_W_NO_COLS) 


omens see 


oO 
Lon) 
nw 
c-~ 
> 
Pp) 
“ 
=) 
nunn 


t] + .PP CPP_W_COLJ-1; 


14 

i Check to see what part (if any) of this virtual display maps onto 
! the viewable part of Ene. paqoewe =-- i.e., the area that goes into 
a the window control block 


IF NOT SMGSSOCCLUDE ( 
wCB CWCB_Q_CooRD), 


MP, 
OVERLAP ) 


uffer. 


Area of window buffer 
Area of display buffer 
Area of overlap 

(if any) 


BEG! ! No overl ap 
PP [PP wW “ROWS_ TO_MOVE] = 0 ; ! There are no rows to move 


"it the display isn't visible, the border Label isn't visible 
ie either. weee Not really true -- clean this up later **** 
. END ! No overlap 
orein ! Overlap 
DCB_START_ROW, !' Ist row of display buffer that lands 
! in window bu 
DCB_START_COL; ' Ist column of display buffer that 
! Lands in window buffer. 


PP [PP_W_ROWS_TO pve s = .OVERLAP (COCB_ : -NO_ROWS); 


PP CPP"WIMOVE-LENGTH) = .OVERLAP CDCB-W NO~COLS): 


DONO UE WN (OO NOUNS WN ("OO DNOUES WN“ OOONOUS WN OOo 


FD ot ot ot at of at at ot ot at nt at oe ae eee reed ae a Pe 
ee ee ee ee ee ee SS SS 
LIAR ID-S PM AAL ANN DD EE EEE EEE. EE AN ANA AANA INNIS OS 


90 
91 
38 
Be a 
96 pp Epp-u-t Age" WCB_ROW] = .OVER!.AP COCB_W_ ROW_ START); 
9 PP C[PP-W-LAST_OCB_ROW) = .OV ERLAP DCB-W_ROW- START 
1 98 -OVERL DCB-W-NO_ROwWS) = 1; 
§ 4 PP CPP_W_FIRST WCB 8504) s = “OVERLAP DCB_W_COL_START); 
401 PP [PP—W-LAST_O -OVERL DCB-W-COL-START) + 
46 ¢ -OVERL DCB-W-NO_COLS) = 1; 
44 PP CPP_L_MOVE_SIZE] = .OVERLAP [DCB_W_NO_ Rows) * 
68 rr 5 -OVERLAP COCB"-W"NO-COLS); 
$ 44 DCB_START_ROW = .OVERLAP [DCB_W_ROW_STA eat) - pe peru ou 3) 
4 “6 3 sapere COL = .OVERLAP CDCB“W7COL“START) - .PP CPPW~ COL 
i 4619 P CPP_W_FROM_INDEX) = ( :>¢B START _ROW -1) *.DCB CDCB_W_NO_ in a 
74 441 .DCB_START COL = 1; 


SRGAQUSPLAYALIN SHEBDISPLAR LHICE al tuaU Ditploy Linkages, 1ecSepnt9Ks 00:28:28 YAMGHY SLISECRZA YE: OGTAG Paae (38) i 


SMGSDISP 
SMGSSCALC_ * 
3 4175 tei§ 
3 tig8 44) PP CPP_W_TO_INDEX] = (, a a ere COCB_W_ROW START] <1) * 
; 417 4414 NO_COLS] + 
3 ois8 eel? [OVERLAP rote am") “COL START) “1; 
: 4180 0013 IF .DCB COCB_V_BORDERED) 
3; 4181 4418 THEN 
3: 41 § 4419 4 BEGIN ! Bordered display 
3 rt 4420 4 LOCAL 
3 4184 4421 4 SPER Rowe ' Row above top row of pasted display 
; 4185 44 ¢ 4 LOWER i Row aoiey poreen row of pasted display 
; $188 44 4 LEFT tor Col to left of posted display 
3 41 4424 & RIGH HT tot 8," ht of pasted ¢ 
: 4188 4425 4 LDES = REF BLOCK  Shie of ddress of dynamic reser. in 
3; 4189 44 § 4 { aes points to Label 
; 4190 44 4 : + A 
3 4191 4428 4 
3 2136 4429 4 LDES = DCB CDCB_Q_LABEL_DESC); 
3; 419 4430 4 
3 4194 4431 4 '¢ 
3; 4195 44 § 4 i Compute the row and column numbers where the borders fall. 
; ci38 44 4 ' Note these rows ong columns may not map into the buffer 
3; 419 4434 4 i and need to be validated before use. 
3; 4198 4435 4 ie 
3; 4199 44 § 4 UPPER ROW = .PP CPP_W_ROW)] - 1 ; 
; 4200 4437 4 LOWER -ROW = = PP [PP“W"ROW] + .0CB COCB_W_NO_ROWS); 
> 4201 4438 4 LEFT COL = .PP CPPTW"COL] - i ; 
: 4 08 4439 4 RIGHT. COL = = .PP CPP“W7COL) + .0CB COCB_W_NO_COLS); 
: 4204 4441 4 IF .LDES CDSC$W_LENGTH] NEQ 0 
; 4205 444 4 THEN 
3 4 5) 444 BEGIN $ toes. position sqmputat ion 
; 420 4444 CASE .DCB (DCB_B_LABEL_POS ROM SMGSK_TOP TO SMGSK_RIGHT OF 
3 4 4 4445 SE 
3 4 444 CSMGS$K_TOP]: 
: 4210 4447 6 BEGIN. ' Label in top row 
; 4211 4448 6 i . UPPER ROW GEQ 1 
3 4 i 444 8 THEN 
3; 421 4450 BEGIN ! Top row in buffer 
3: 42146 Pett 7 LOCAL 
3 ? 1? a § 4 DCOLS : SIGNED; ! Dest. col. start 
3 4 13 4454 7 DCOLS = .PP CPP_W_COL) + 
3 ; H ste 4 DCB COCB-W_LABEL_UNITS) <2 ; 
: 4220 1089 ? IF .DCOLS LEQ .wCB CWCB_W_NO_COLS) | 
; 4221 ret THEN 
3 4 4 44 BEGIN ! partially on screen 
3; 4 4460 LOCAL 
; ; 3 $69) DCOLE : SIGNED; ! Dest. col end | 
: 4 $ 446 DCOLE = MIN ( (.LDES cos¢su. LENGTH] + .DCOLS -1), 
7 4 44 PP CPP w 
3; 4 4465 pte W_NO_COLS 
2 ? rer Pee wCB- wl “NO- COLS ,) 
: 4231 4468 PP (PP_W_LABEL_BYTES_TO_MOVE) = 
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: 4 ¢ 4469 MAX ( 0, .DCOLE +1 - 

3 4 44 9 MAX (0, .DCOLS) ); 

> 42354 447 

; 4235 rit IF .PP CPP_W_COL] LEQ 0 

3; 4 ° 447 THEN 

; 4 4474 BeShe ! Using tail 0" of Label 

: 4238 4475 9 PP_W_SRC_LABEL_OF 

: 4239 rete 9 -LBE COSC$wW_LENG TH] - 

> 4240 4477 9 p Cp i CABEL Bytes TO_MOVE]; 

: 4241 4478 9 END | Using tail end of Labef 

3; 4 tg 4479 8 ELSE 

> 424 4480 9 EGIN ! Using front gnd of label 

3 42446 4481 9 PP C[PP_W_SRC Matt t- OFF 

; : tz <e8 END; Using front end of Label 

5 4247 4484 8 PP 596 Ju pet :ae. iP? « (,UPPER_ROW -1) * 

: 4248 4485 8 we twcB Ww NO_ Sirk + 

> 4249 4486 8 MAX(0, .DCOCS 

: 4250 4487 7 END; ! Partially on a naa 

: 4251 4488 7 

3 $526 4489 6 END; ! Top row in buffer 

3; 425 4490 2 END; ! Label in top row 

3: 4254 4491 

3; 4255 4492 5 CSMG$K_BOTTOM]: 

; 4256 4493 6 BEGIN ! Label in bottom r 

3: 4257 4494 6 IF .LOWER Row LEQ .WCB cwcB. W _NO_ROWSJ 

: 4258 4495 6 THEN 

: 4259 4496 7 BEGIN ! Bottom row in buffer 

: 4260 4497 7 LOCAL 

3; 4261 498 7 DCOLS : SIGNED; ! Dest. col. start 

; $506 4499 7 

3: 426 4500 7 DCOLS = -PP CPP_W_COL] + 

3 4264 4501 7 -DCB COCBTW_LABEL_UNITS] - 2; 

3: 4265 $206 7 

3: 4266 4503 7 IF .DCOLS LEQ .WCB CWCB_W_NO_COLS) 

3: 4267 4504 7 THEN 

3: 4268 4505 8 BEGIN ! Partially visible 

: 4269 4506 8 L 

; 4270 4507 8 DCOLE : SIGNED; ! Dest. col. end 

: $50) 4508 8 

3; 4 i 4509 8 DCOLE = MIN ( ( BES CDSCSu_ LENGTH) + .DCOLS -1), 

> 427 4510 9 PP CPP J + 

3 4274 4511 Dea -W_NO_COLS] ), 

3; 4275 t21§ tee WCB-W-NO_COLSJ); 

3; 4 6 451 

3; 427 4514 PP CPP_W_LABEL ates TO oye = 

: 4278 4515 MAX ( oF ¢ 

: 4279 $2i8 hax (0, DCOLS) ); 

: 4280 451 

3 4 +? 4518 

3; 4 § 4519 IF .PP CPP_W_COL] LEQ 0 

3 4 o 4520 THER 

3 4 4521 EGIN Using tail end of label 

3; 4285 45 § 9 BP PP_W_SRC_ ‘ser OFF) = 

3; 4 45 3 LOBE EOSCSu LEN GTH) - 

3 4 4524 9 PP_W sy ABe aries. 0_MOVE); 

3 4288 4525 9 END } Us ng tail end of | bet 
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-Sep-1984 


soonee” 
5Sih + Yaiee., i nt Ft ny of label 
BE PP_W_ SRC. tA L_O 
END; T Using trant oan’ of Label 
PP CPP _W DST -LABEL_OFF I WER_ROW bb * 
a thes W"NO_ coLs] + 
aanto. .otocSs = : 


END ;! Partially visible 
D; ottom row in buffer 
END; ! Label in bottom row 


CSMG$K_LEFT]: 
BEGIN ‘!Label in Left column 
TF LEFT. COL GEQ 1 


ti ! Left column in buffer 
DROWS : SIGNED; ! Dest. row start 
DROWS = -PP CPP_W_RO 


Ww) + 
-DCB COCB"W_LABEL_UNITS] - 2; 
IF .DROWS LEQ .WCB CWCB_W_NO_ROWS) 
THEN 


BEGIN ! Partially visible 
LOCAL 
DROWE : SIGNED ; ! Dest. row end 


DROWE = uy rp te. pestau LENGTH] + .DROWS -1), 


-0CB pote ~W_NO nove , 
-WCB CWCB-W_NO_ROWSJ); 


PP CPP Wh NOEL va TO JOyed = 
anes, DROWS) ); 
IF .PP CPP_W_ROW] LEQ 0 
HEN 


BEGIN ! Using tail end of Label 

PP CPP_W SRC_LABEL ray 

LOE “{OSCSu. LENGT 
wat ABEL Sites” TO_MOVE]; 

END | Pls + “tail end of label 


EGIN ! Using front end of Label 
PP PP_W_SRC nate L_OFFJ = 0; 
END; sing front end of Label 


PP CPP_W_DST_LABEL OFFI : (,DROWS -1) 
e tNCB UNO, $) + 


COL 
mane 0, .LEFT_COL = 1); 
END; ! Partially visible 
eft column in buffer 
END; *! Label in feft column 
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SMGSSCALC_PASTE_TRANSF = Calculate pasting tran 1 SMGRTL.SRCJSMGDISLIN. : 2;1 
3; 4 ‘8 4583 5 CSMG$K_RIGHT): ; 
3 434 4584 ° BEGIN ! Label _in right co ; 
: ? rk ? 5 1a +RIGHT_COL LEQ .wWC wes. v "NO. COLS) : 
; 4350 45 5 ° BEGIN ! Right column in buffer : 
: 4351 4588 7 LOCAL ‘ 
: : 38 : 4 f DROWS : SIGNED; ! Dest. row start : 
3; 43546 4591 7 DROWS = PP CPP_W_ROW] + : 
: Q 55 1238 f DCB COCB_W_LABEL_UNITS] = 2; : 
3 4 37 t2ge 7 IF .DROWS LEQ .WCB CWCB_W_NO_ROWS) . 
: 4358 4595 7 THEN 3 
; 4359 $238 8 BEGIN ! Partially visible : 
: 4360 459 : ; 
: 4361 4598 DROWE : SIGNED ; ! Dest. row end . 
7 4 ee 4599 8 3 
: 436 4600 8 DROWE = MIN ( (,LDES pesce LENGTH] + .DROWS -1), . 
> 4364 4601 9 (.PP CPP W ; 
3; 4365 4602 8 -0CB DCB W_NO rk > 
>: 4366 4603 8 -WCB CWCB_W"NO_ROWS );° : 
3 $392 4604 8 3 
; 4368 4605 8 PP CPP_W_LABEL Brits TO oye)» ‘ 
: 4369 4606 Max ( 0, i : 
3; 4370 4607 HA x (0, DROUS) v3 : 
3 4371 4608 . 
7 4 Le 4609 8 3 
: 437 4610 8 IF .PP CPP_W_ROW) LEQ 0 ; 
: 4374 4611 8 THEN ; 
; 4375 4612 9 BEGIN ! Using tail end of Label : 
: 4376 461 9 P CPP_W_SRC_LABEL_OFF a : 
3; 4377 4614 9 -LBES COSCSW_LENG . 
: 4378 4615 9 .PP CPP u LABEL BYTES TO_MOVE); : 
: 4379 4616 9 END ! Using tail end of Label : 
3; 4380 461 8 : 
: 4381 4618 9 BEGIN ! Using pogne end of label ; 
; rit) 4619 9 PP CPP_W_SRC yt Bel OFF : 
; rt oe59 : END; Using front end of label ; 
: 4385 4638 é PP CPP_W_DST_LABEL_OFFI = 5 :DROWS <1) ; 
: 4386 46 : B {WwCB_W_NO COLS) + ; 
3 tr 6 : maAXt0. «RIGAT_COL - 1); : 
3 £389 46 $ § END; ! Portiatly visible ; 
3; 4 46 END; aiens t column in buffer 3 
3; 4391 4628 END; ! Label in right column : 
3; 4 8 4629 : 
3; 439 4630 COUTRANGE): 3 
3 4394 4631 RETURN (SMGS_FATERRLIB); : 
3 4395 46 § : 
3 4 38 46 TES; , 
3 439 4634 4 END; ! Label position computation 3 
3: 4398 4635 END; ! Bordered display : 
; 4399 46 END; ! Overlap : 
: 44 46 | ° 
3; 4401 46 8 '¢ ; 
3: 4402 46 ! If the virtual display width matches the window control block width, : 


SMGSDISPLAY_LIN sneee 
1-096 SMG 


PLAY gk Wks - Virtual Display Linkages 1b-5¢ Sep-1984 9: AX-11 8 
LC_PASTE_TRANSF = Calculate pasting tran 1 730071382 99: 83 88 
' an ng the width of the data to be move during a wepe tne operation is 
i this same width, then both the oy —— gnd t ot pat ne are 
i conti «> usets "of oneee and can be moved w : stnete OVE. 
i Tf no ey have t9 be moved a row at a time since +A, ~ how many 
q are piece-w se contiguous. 
PP CPP_V_CONTIG) = 0; ! Assume not contiguous until so proven. 
IF .D -0CB Epte. W_NO_ cbisi EQL .WCB face. _NO_COLS AND 
P_W-MOVE-LENGTH) EQL .0CB COCB-W-NO_COLS 
pp Nip pie" = 1; ! Contiguous 
RETURN (SS$_NORMAL); 
END; ! End of routine SMGSSCALC_PASTE_TRANSF 
OFFC 00000 ~ENTRY ers oe C RO RIOTR 
5E 2¢ C2 0000 SUBL2 Rese "- 
5 04 AC D0 0000 MOVL PP, R 
50 14 A? 00 00009 MOVL go R7), PBCB 
59 08 AO DO 0000D MOVL (PBCBS, WCB 
52 10 A? 00 00011 MOVL 16(R7), DCB 
18 AE e A? 9E 00015 MOVAB 36(R7), 24(SP) 
8 8B 84 OO01A CLRW  a24(SP5 
14 AE 26 A — 0001D MOVAB 38(R7), 20(SP) 
14 8B 84 900 2 CLRW oa 0 (spi 
10 AE 28 OA E 000 MOVAB 40(R7), 16(SP) 
10 BE B4 990 A CLRW  @16(SP5 
0c af 18 A E 8 0 OVAB 24(R7), 12¢SP) 
5 62 3C¢ 000 MOVZWL ace RO 
51 Oc BE 000 CVTWL  a@12(SP), R1 
50 51 CO 00039 ADDL R1, RO 
AE 50 01 A3 00035C SUBW #1, RO, TEMP 
26 =A 02 A2 B60 Shag MOVW gf 0CB) TEMP+2 
08 AE 1A A? 9E 00046 MOVAB 6(R7), 8(SP) 
0 8 A2 ; once MOVZWL 4(DCB), RO 
1 8 E GF CVTW a8(SP), R1 
0 2s 053 ADDL Ri, Re 
AE 0 01 =A 28 SUBW #1, RO, TEMP+4 
94 AE 06 A2 3 MOVZUL 6(bcB), 4(SP) 
A AE 4 AE 6 Vid (SP), TEMP+6 
fs AE 9F 0006 PUSHAB OVERLAP 
2 3 F 68 SHAB TEMP 
0D 6B PUSHL WCB 
000000006 99 4 $0 CALLS #5, SMGSSOCCLUDE 
6 E 4 BLBS R $ 
1c A gf 77 CLRW é (Rr?) 
0258 351 7A 1$: BR $ 
i A7 3 AE 8 70 2$: MOVW OVERLAP+ gh in?) 
§ A? ‘ AE 8B MOV OVERLAP (R7) 
Fo OAT C AE MOVW OVERLAP, 47(R7) 
29 1C AE C MOVZ7WL OVERLAP, 
1 1€ AE 3C MOVZWL OVERLAP#2, R1 
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att SMGSSCALC_PASTE_TRANSF = “Calculate pasting tran 14-Sep- 7 99: 89 “ SMGRTL.SRCJSMGDISLIN.B32;1 ° (38 
2 DO 00158 MOVL JR ; 
ak 1 : 12 5$: CMPL 2: Rio + 6466 | 
A 06 001 tT a R2 
3g 9 1 6$: MOV D ois, RB : 4470 
1 BGEQ : 
d4 001 CLAL. R : 
52 C2 00160 7$ SUBL2 RB, : 
d6 001 INCL R + 4469 
1 17 BGEG)=Ss«éiB ; 
D4 0017 CLRL oR : 
18 BE 80 126 8$ MOVW =o 924 (SP) : 
08 BB fe b0170 iste gate) Begaee 
16 BE 56 18 4 A3 0017F SUBW3 024 (SP), R6, @20(SP) + 4477 
17 00185 BRB 10$ + 4472 
14 E B4 00187 9 CLRW + ag + 4481 
D7 0018A 10$ DECL R 7 4484 
55 A C4 0018C MULL2 R10, + 4485 
02 0 F4 0018F SOBGEQ R : 183 + 4486 
0 D4 00192 CLRL : 
10 BE 55 39 al 194 118: ADDUS : RS, a16(SP) pe 
51 02 a9 10 90 ED 00198 188: CMPZV #16, 2(WCB), LOWER_ROW + 4494 
6 19 OO1A1 LSS : 
50 08 8B ‘ O1A3 CVTWL eae SP) + 4501 
5 2c OA ¢ O1A7 MOVZWL 44 (D BS, RRs F 
50 55 CO 001AB ADDL. * ; 
50 9 Ce O1AE SUBL 1 BcOL$ 3 
- 4 A b1B4 14$ geTR i wed — 
52 FF A04 oF 01B6 MOVAB pecs R2 : 4509 
5 52 D1 00188 CMPL : 4510 
52 5 60 a1 ae | a : 
SA D1 001C3 15$: CMPL : Rio : 4512 
9 15 Och BLE ; 
52 A v0 001¢ MOVL 16g 2 F 
5 5 09 1CB 16$ MOVL pcols, RS t 4516 
1 1¢ BGEG 36=s:«saW7$ : 
D4 001 CLRL Re ; 
52 C2 00102 17% SUBL2 5, R2 F 
D6 001D INCL R + 4515 
1 1D BGEQ 6=s-—«wW2S ; 
D4 00109 CLRL oR : 
18 BE 80 10B 18%:  MOVW Re, @24(SP) ; 
eae a bei 
14 BE 56 18 4 A’ fe SUBW3  @24(SP), R6, @20(SP) : 4 24 
1 1EA BRS 2 ; 3; 4 
14 F B4 OO1EC 198 CLRW © @20( SP) : 4 
D7 OO1EF 208 DECL =R : 4 
1 A C4 OO1F1 MULL2 R10, 81 > 4531 
2 F4 IF SOBGEQ RO, 218 : 4532 
10 BE 51 OT BO1ES 218:  ADDUS WO, RI, @16(SPD : 
69 11 OO1FE Ate BRB 32$ > 4444 
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sFint}  oRou 
wié, Op Owee). DROWS 
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R 
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2886 SMGSSCALC-PASTE TRANSF. = Calculate pasting tran le-sepa19ee 19:09:48 | FeMGRTL SRE SSMeDI si IN B42; 9 8 | 
Dé 0028 CLRL oR ; 
18 BE 2 8) 28 38$ MOVW Re, 8 924 (SP) : 
0c 4 B B TSTW : ¢ (SP) + 4610 
4 0028 BGTR 9 : 
16 BE 56 18 BF As B SUBW3 @24(SP), R6, a20(SP) + 4615 
1 ¢ BRB 4 $ : 461 
14 F B4 000C3 39$:  CLRW a20(SP) > 461 
D7 000C6 40$: DECL R : 46 é 
50 A C4 0020C MULL2 R10, RO > 46 
F4 000CB SOBGEQ R3, 41$ + 4626 
D4 O02C CLRL. oR : 
10 BE 5 Al 00200 41$: ADDS R3, RO 916(SP) : 
A A BA 00005 42$: BICB2 #2. 42% + 464 
4 AE 06 =A : D9 CMPW 3s (WCB), RE USP) + 464 
08 D BNEQ 43$ : 
04 AE 22 =A e E CMPW  -34(R7), 4(SP) + 4648 
4 E BNEQ 43$ ; 
2a A? 2 8 E B1SB2 a2, 42(R7) + 4650 
50 1 DO OOCEB 43$: MOVL ‘ : 465¢ 
04 OO2EE RET > 465 


; Routine Size: 751 bytes, Routine Base: _SMGSCODE + 166C 
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; 441 4655 1 ZSBITL ‘SMGSSCHECK_OCCLUSION = Check pastings for occlusion’ 

+ 2038 cb § | GLOBAL ROUTINE SHGSSCHECK OCCLUSION eects 

> 4421 4 1 PBCB : REF SPBCB_DECL 
BB du BS 

i bag 4660 1 { FUNCTIONAL DESCRIPTION: 

: 44 4 ii This procedure checks the overlap in all the pastings to 

: 44 § tees 1: a@ given pasteboard -- setting a bit in the respective pasting 
3: 4428 4664 1! pycrets © record whether each pasting is ogc ludes by 

3; 4429 4665 1! igher (more-recently pasted) pastings. This greceeure is 

; 44 rhe ¢ | 1! invoked whenever there is a — ¢ in the pasting order or 

: 44 4 2:3 asting position of any virtua d splay. 

: 44 ¢ ree 1! f we can determine at pasting time that a particular virtual 
3 44 $98 13 display (as pasted) and with a gtyen succession of higher-pasted 
3; 44 4670 1! virtual displays is not occluded by any of them, 

3; 4435 4671 1! we can make mapping run faster since a change to a virtual 

3 44 4672 1! display which is not occluded causes gnty the changed virtual 
3 44 4675 1! display to be remapped. Wigher posted virtual displays do not 
3; 44 4674 1! have to be remapped since it is known that they do not occlude 
: rete rege : the changed one. 

; 4461 4677 ! CALLING SEQUENCE: 

; rrr meth : ret_status.wilc.v = SMGSSCHECK_OCCLUSION ( PBCB.rab.r) 

; 4445 4681 | FORMAL PARAMETERS: 

> 446 rhe 1/ PBCB.rab.r Address of pasteboard control block 

3: 4448 46 ,; which has something new or different 

; pre} ree : pasted to it. 

> 4451 4687 1 | IMPLICIT INPUTS: 

; 445 4688 1! 

fee ae ape 

> 4455 4691 1 | IMPLICIT OUTPUTS: 

on ee 

465 4694 1 | 

3 ret $80? : : COMPLETION STATUS: 

; 4461 469 : SS$_NORMAL Normal successful completion 

; rrr 4699 1 | SIDE EFFECTS: 

s 6664 4 1! 

3 4465 4701 1! NONE 

: rrr | 47 4 1 !e- 

: rrr ¢} BEGIN 

; 446 4705 LOCAL 

3; 6470 47 THIS_PP : REF SPP_DECL, 

3 4471 47 } ager of pasting packet for upper-most pasted 
: $67 ih ! virtual display. 

3 4474 47 9 THIS_Q_HEAD : REF BLOCK (,BYTE); 

3; 4475 471 ! Addr o longwords that form queue header in 
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AX=11 Bliss-32 V4.0-7 or 
. Linkages 16-Sep=1 3: SROISMGD! SL IN-BS2;1 
eae si SRSSCHECK OECLUSION ~ Check past ings for voectu | 1 ~Sep-1 1984 98; 63 4 SMGRTL. | 
471 . ! PP currently under inspection. 
447 
: oi 
; ccf 5 iy initialize for the rest of the gl gor ithe, run through whole pasting 
: rat arg Uist marking all packets not occlude cal 
; l- t pas 
> 448) 47) PBCB_A,PP_NEXT]; ! Ist (more recen 
: oeRs reat: WHILE sTH1S_0_HEAD NEG PBCO"CPBCE A-PP_NEXTS. 
4720 DO 
: eces oes] PECIN ee STS Bohan = PP, PBCB, QUEUE OFFSET: nel agtge of Packet 
; 44 “PP C PP_V_OCTLUD S e header in 
4487 4? § THIS-0 HEAD = THIS PP. LPP_A-NEXT _PBCEI: | To queue hea 
g $489 tf ‘ END; | Init. pass 
; 4491 4? A_PP_NEXT); 
ii STeh $ WAIEPoMEM™s as a"RCRCSEMSMDA-PECRELIZie orrset: 
7 4 - 
3 4494 4730 
; 1096 t : y= for all pasting packets starting with most-recently pased one 
3 4497 1538 § i. ILE .THIS_Q_HEAD NEQ PBCB CPBCB_A_PP_NEXTJ 
: 4498 4734 WHILE . o*e 
> 4499 4735 bo BEGIN ! For all displays from top to bottom 
: 2300 of LOCAL SPP_DECL, 
£303 rt 3 ve sie sess Addr of pasting packet currently under 
; 308 544 ' inspection. 
3; 4504 
: rt the3 NEXT_PP_Q_HEAD : REF BLOC ey chet tora Gaus 
; £309 ones i header in PP currently under 
> 4508 roe} ' inspection. 
; 4509 
: 4310 t72$ TEMP_THLS + BLOCK CBpBYTED Ss aetual 
3 451 ores i display on pasteboar 
; 2315 ore ie 
315 4758 TEP JEM 2 MOK CS (e Area of projection of NEXT virtual 
; 4516 “s § | display on pasteboard 
3; 451 ’ 
7 19 <7 5 ae a Ceure ai virtual display currently 
3 4520 $¢ > under inspection. | 
: $88 He ; for this 
; 4 g 4759 Y meena! nate pasting packet address and DCB address fo 
: $3 $ t5e ! iterat 
: cre - HEAD = PP PBCB QUEUE _OFFSET; 
; i } rt! g THIS. “bee =" THIS PP CPP_A. OCB ADDR); 
; 4765 
i the ihe s safe to assume that there is at least one virtual 
: re } 4768 : di 


j 
a. A pasted to this pasteboard -- but there may not be more 
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' than one. Be careful shout copenong ahead to a packer that 
: aay not be a pocket. If doesn't exist, pointer will be 

' point ng back into PBCB <= and inner loop will not be 
executed. 

NEXT_PP_Q_HEAD = .THIS_PP CPP_A_NEXT_PBCB); 

Treinen =PP_O_WEAD NEQ PBCB CPBCB_A_PP_NEXT] 


BEGIN ' NEXT exists 
NEXT PP = .NEXT_PP_Q_HEAD = PP_PBCB_QUEUE_OFFSET; 


i Form a representation of the gro ection of THIS virtual 
display onto pasteboard coordinate system. 


TEMP_THIS COCB_W_ROW_START] = .THIS_OCB CDCB_W Rou START? + 
P_W ROW) = 1; 


-THIS"PP CP 
TEMP_THIS [DCB_W_NO_ROWS) = .THIS"DCB (DCB-W_NO_ROWS); 
TEMP-THIS COCB-W-COC_START) = .THIS"DCB COCB-W COL. START] * 

-THIS"PP CPP_W-COL) = 1; 
TEMP_THiS CDCB_W_NO_COLS] = .THIS"DCB COCB-W_NO_COLS); 


‘4 
! If this virtual display is bordered, its projection is 
! bigger than if it were not. Adjust its projection 


representation. 

if tHIS_pcB CDCB_V_BORDERED) 
BEGIN ! Border edjustaen 
TEMP_THIS COCB_W_ROW START) = .TEMP_THIS [DCB_W_ROW START] - 1; 
TEMP_THIS [DCB-W-NO_ROWS] = .TEMP-THIS CDCB"W"NO ROWS) + 2; 
TEMP_THIS (D B-w_coc START] = .TEMP_THIS CDCB-W-COC_START] = 1; 
TEMP_THIS LDCB_W_NO COLS = .TEMP_THIS DCB-W-NO_COLSJ + 2; 
END; ! Border adjustment 

END; ! Next exists 

WHILE .NEXT_PP_Q_HEAD NEQ PBCB CPBCB_A_PP_NEXT) 
BEGIN ! For all displays from current to bottom 
LOCAL 


NEXT_DCB : REF S$DCB_DECL 
| Addr gf DCB associated with NEXT_PP 
OVERLAP : BLOCK (8,BYTE); 
' Returned by SMGSSOCCLUDE, but not 
' used in this context 


TPP = .NEXT PROG .HEAD = PP PCB QUEUE OFFSET; 
T“DCB = .NEXT_PP CPP_A_DCB_ADDRI: 


1 
i Form a representation of the are ection of NEXT virtual 
! display onto pasteboard coordinate system. 


le 


4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
; 
4 
| 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
ri 
4 
4 
é 
4 TEMP_NEXT COCB_W_ROW_START) = .N 

4 NEXT“PP CPP_W7ROW 
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; 4590 4 § 4 TEMP_NEXT [DCB_W_NO_ROWS] = .NEXT_DCB ([DCB_W_NO_ROWS); ; 
: 4591 4 4 TEMP-NEXT COCB-W-COC_START] = .NEXT"DCB CDCB-W cols! START] + : 
; 4 3 4 § 4 .NEXT-PP CPP_W-COL : : 
: 4 33 4 4 TEMP_NEXT CDCB_W_NO_COLS] = .NEXT“DCB COCB-W_NO_C couga; : 
: 4595 4831 4 rs i | 
; 4 38 s § & i If this next virtual display is bordered, 4p $s projection is : 
: 459 4 4 : bigger than if it were not. Adjust its projection : 
3 : 38 ri : : \. representation. : 
i 4600 4Bs6 4 if ,NEXT_DCB CDCB_V_BORDERED] 3 | 
3 4803 4838 BEGIN! Border adjustmen 5 | 
; 460 4 TEMP_NEXT CDCB_W_ROW START) = .TEMP_NEXT ([DCB_W_ROW WASTART) = % 
; 4604 4840 TEMP_NEXT CDCB-W_NO_ ROWS) = .TEMP_NEXT [DCB_W_NO_ ROW : 
; 4605 484) TEMP_NEXT [CDCB-W_ =COt START] = .TEMP_NEXT (DCB_W_COL START} = : 
; 4606 4 “¢ TEMP-NEXT CDCB-W-NO_COLS] = .TEMP-NEXT CDCB-W-NO_COL : 
3 ree r ‘ : END; ! Border “pdsustnent : 
> 4609 4845 4 rs ; 
3; 4610 4 § 4 ! Check to see if THIS virtual rab A occludes NEXT : 
; red : f ? vitual display and if so set occlusion bit of NEXT. : 
; 4613 449 4 iF SMGSSOCCLUDE ( TEMP_NEXT, TEMP_THIS, OVERLAP) ; 
i 4615 iss 4 NEXT_PP CPP_V_OCCLUDED] = 1; ; 
: 461 tees 1+ 
3 ree ? 22 2 Walk chain in direction of earlier pasted packets. : 
; 4620 4896 4 NEXT_PP_Q_HEAD = .NEXT_PP CPP_A_NEXT_PBCB); : 
; re ? 28 END; ! For all displays from current to bottom : 
: 4624 4 \¢ 
3 re 5 ? 1 ; Walk chain in direction of earlier pasted packets. : 
; 46 4 g THIS_Q_HEAD = .THIS_PP CPP_A_NEXT_PBCB); : 
; re ? 5 END; ! For all displays from top to bottom : 
; 4631 ites RETURN (SS$_NORMAL) ; 3 
: 46 : 4 END; ! End of routine SMGS$CHECK_OCCLUSION ; 
00FC 00000 -ENTRY SHGSSCHECK OCCLUSION, Save R2,R3,R4,R5,R6,~ ; ey 3 
18 C SUBL2 #24, SP ; ; 
é 06 AC D MOVL pace, RA : 4718 3 
4 D MOVL  (R6), THIS.Q HEAD ; ; 
6 C 1$: CMPL THIS_Q@_HEAD,~ ; 4719 : 
. fF BEQL : . 
52 fa 1 MOVAB =8(R4), THIS_PP : 4722 ; 
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FF3D 31 E6 BRW 3$ : 4 
50 1 R? ES 9$: MOVL #1, RO i 4867 
4 EC RET ; 4869 
; Routine Size: 237 bytes, Routine Base: _SMGSCODE + 1958 


+ 4634 4870 1 !<BLF/PAGE> 


5 
5 
5 
5 
5 
; 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
; 
5 
5 
5 
: 
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1-096 SMGSSCHECK_OCCLUSION_FIRST - Check pastings for 1228 8-13Re 99:89:28 SMGRTL. RCISMGDISLIN.B 2;1 (27) I= 
3; 46 4871 1 XSBITL ‘SMGSSCHECK Be Velen FIRST = Check pastings for occlusion’ : i 
> 46 4 if 1 GLOBAL ROUTINE SMGSSCHECK_OCCLUSION_FIRST ( : 3 
: 4638 4873 1 PBCB : REF $PBCB_DECL i 
; 4639 4874 1 d= ‘ ‘ 
: 4640 4875 1 !+4+ ar 
; ree : 6 : FUNCTIONAL DESCRIPTION: i 
3; 464 re fh 1! This procedure updates the overlap bit in all the pastings to | 
> 4644 4879 1! a@ given pasteboard == setting a bit in the respective pasting ; i 
> 4645 4880 1! packets to record whether each pasting is occluded by . 
> 4646 4881 1! the pognest (most-recently pasted) pasting. This procedure is : i 
; roan ett ! invoked whenever a virtual display is freshly pasted. : : 
> 4649 4884 1! This routine differs from SMGSSCHECK_OCCLUSION it that that : ij 
: 4650 4885 1! routine compares all pastings to all“other pasting. This - 3 
; 4651 4886 1! routine only compares the top pasting to all the others since 37 
; 465 4887 1! the addition of this new top one can only add an occlusion to : i 
; 465 4888 1! a lower one. Any occlusions already existing at a low level a 3 
; 4654 4889 1! cannot have been modified by pasting one more on top and there a 
3 re 4 ret : } is no reason to recalculate their relationship to each other. : : 
3; 4657 4892 1! If we can determine at pasting time that a particular virtual R41 
: 4658 4895 1! display (as pasted) and with a given succession of higher-pasted 
; 4659 4894 1! virtual displays is not occluded by any of them, 
: 4660 4895 1! we can make mapping run faster since a change to a virtual 
: 4661 48 1! display which is not occluded causes only the changed virtual 
3; 466 4897 1! display to be remapped. Higher pasted virtual displays do not 
: 466 4898 1! have to be remapped since it is known that they do not occlude 
: 4899 1! the changed one. 
: 4665 49 1! 
3 4901 1 ! CALLING SEQUENCE: 
: 4667 4902 1! 
: +38 $38 : : ret_status.wic.v = SMGSSCHECK_OCCLUSION_FIRST ( PBCB.rab.r) 
; 4670 4905 1 ! FORMAL PARAMETERS: 
3; 4671 4906 1! 
; 467 4907 1! PBCB.rab.r Address of pasteboard control block 
: 467 4908 1! which has a new virtual display pasted 
: 4674 4909 1! to it. 
3: 4675 4910 1! 
: 4676 4911 1°! IMPLICIT INPUTS: 
3: 4677 4912 1! 
; 4678 4913 1! NONE 
: 4679 4914 1! 
; 4680 4915 1 ! IMPLICIT OUTPUTS: 
: 4681 e318 1! 
3; 468 4917 1! NONE 
3; 468 4918 1! 
3: 4684 4919 1 ! COMPLETION STATUS: 
3; 4685 4920 1! 
3 $606 4921 1! SS$_NORMAL Normal successful completion 
: 468 49 § 1! 
: 4 49 1 ! SIDE EFFECTS: 
; 4689 4904 1! | 
3; 46 4925 1! NONE 
3; 4691 49 § } jee 
3; 4692 49 1 
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; 49 BEGIN 
3 49 LOCAL 
: 49 THIS_PP : REF SPP_DECL, 

; 493) ! Addr of pasting packet for upper-most pasted 

; re § ! virtual display. 
: 4934 THIS_Q_HEAD : REF BLOCK C,BYTE), 

; 4935 ! Addr of 2 Longwords that form queue header in 

: re g ! PP currently under inspection. 
; 49 : NEXT_PP : REF S$PP_DECL, 
3 49 ! Addr of pasting packet currently under 

: ye ree ! inspection. 
: 4707 494 NEXT_PP_Q_HEAD : REF BLOCK C,BYTE), 

; 494 ! Addr of 2 (ongwords that form queue 

; 470 4944 ! header in PP currently under 

3 peat re re ! inspection. 
: rig 494 TEMP_THIS : BLOCK (8,BYTE], 
3; 471 4948 ' Area of projection of THIS virtual 

3 reat rh ! display on pasteboard 
: 4716 4951 TEMP_NEXT : BLOCK (8,BYTE), 
: 4717 1326 ! Area of projection of NEXT virtual 
3; 4718 495 ! display on pasteboard 
3 4719 4954 
3 $79 +382 THIS_DCB : REF $DCB_DECL; 
: 47¢e 4989 ' Addr of virtual display currently 
3 of ? $338 ! under inspection. 
; i753 4960 THIS_Q HEAD = .PBCB CPBCB_A_PP_NEXT); ! Most recent pasting 
; 47 6 4961 THIS_PP = .THIS_Q_HEAD - PP~PBCB_QUEUE_OFFSET; 
: 4728 4968 THIS_DCB = .THIS_PP CPP_A_DCB_ADDR]; 
2088 1968 3 1 
+ 6731 rhs i It is safe to assume that there is at least one virtual 
3; 47 ¢ 496 ! display pasted to this pasteboard -- but there may not be more than 

3; 47 49 ! one. be careful about reaching ahead to a packet that Bey not be a 

3; 47 4969 ! packet. If doesn't exist, pointer will be pointing back into PBCB 

3 of 5 4309 : =-- and inner loop will not be executed. | 
; 4? 6378 " NEXT_PP_Q_HEAD = .THIS_PP CPP_A_NEXT_PBCB); | 
: 4259 4974 IF .NEXT_PP_O_HEAD NEQ PBCB CPBCB_A_PP_NEXT] | 
: 6741 497 BEGIN ! NEXT exists | 
; ores 437 NEXT_PP = .NEXT_PP_Q_HEAD - PP_PBCB_QUEUE_OFFSET; | 
. ‘¢ | 
: 6764 497 i Form a representation of the projection of THIS virtual 
3 ore? rts display onto pasteboard coordinate system, | 
: the3 49 § TEMP_THIS COCB_W_ROW_START] = .THIS_DCB COCB_W BOW _STARTI + 
3: 4748 49 -THIS-PP CPP_W ROW) = 1; | 
> 4749 49 TEMP_THIS CDCB_W_NO_ROWS) = .THIS“DCB COCB"W_NO_ROWS); 
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4750 4985 TEMP_THIS CDOCB_W_COL_START] = .THIS_DCB foce.w Co STAats + 

4751 49 § -THIS_PP CPP_W-COLJ = 1; 

$f § $3 TEMP_THIS COCB_W_NO_COL:J = .THISDCB CDCB"W_NO_COLS); 

4754 4 ; 4 

4755 4990 ! If this virtual e*eplay is bordered, its projection is bigger 

of $ $33) than if it were not. Adjust its projection representation. 

4758 499 IF .THIS_DCB CDCB_V_BORDERED) 

4759 4994 THEN 

4760 4995 BEGIN ! Border og justaent 

4761 499 TEMP_THIS [DCB_W_ROW_START] = .TEMP_THIS [DCB_W_ROW START] = 1; 

ofe8 499 TEMP_THIS “W_NO_R -TEMP_THIS LDCB_W_NO_ROWS) + 2; 

476 499 TEMP_THIS CDCB_W_COC_START] = .TEMP_THIS (DCB_W_COC_STARTJ = 1; 

4764 499 TEMP_THIS CDOCB-W-NO_COLS] = .TEMP_THIS CDCB_W-NO_COLSJ + 2; 

5 5000 END; ! 6 ustment 


END; ! Next exists 
es -NEXT_PP_Q_HEAD NEQ PBCB CPBCB_A_PP_NEXT) 
BEGIN ! For all displays from current tc bottom 


NEXT_DCB : REF SDCB_DECL, 
: oger of DCB associated with NEXT_PP 
OVERLAP : BLOCK C8,ByT : 


E 
' Returned by SMGSSOCCLUDE, but not 
' used in this context 


NEXT_PP = .NEXT_PP_Q HEAD = PP +, | aceasta 


; 4780 NEXT_DCB = .NEXT_PP CPP_A_DCB_ADDR 


Ree eRe epee oe: 
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008 
009 
010 
8 1 
O18 
014 
015 
rt O19 r 
rhe 0 8 ' Form a representation of the projection of NEXT virtual 
rth 8 ; display onto pasteboard coordinate system. 
4786 9 1 TEMP_NEXT CDCB_W_ROW_START] = .NEXT_DCB CDCB_W ROW_START . 
47 j .NEXT“PP CPP_W"ROW) = 1; 
4788 0 TEMP_NEXT [DCB_W_NO ROWS) = .NEXT"DCB COCB~W_NO ROWS); 
4789 024 TEMP-NEXT COCB-W-COC_START] = .NEXT"DCB CDCB-W COL. START] . 
4790 025 .NEXT-PP CPP_W7COL) = 1; 
cree $ TEMP_NEXT CDOCB_W_NO_COLS) = .NEXT_OCB CoCB-W_NO_COLS); 
479 '+ 
4794 3 ' If this next virtual display is bordered, its projection is 
4795 0 ' bigger than if it were not. Adjust its projection 
on 1 representation. 
rth : IF .NEXT_DCB CDOCB_V_BORDERED) 
47 THEN 
ret 5 BEGIN ! Border od justaent 
4801 TEMP_NEXT [DCB_W_ROW START) = .TEMP_NEXT (DCB_W_ROW START) - 1; 
ret TEMP_NEXT [DCB-W"NO ROWS] = .TEMP_NEXT ([DCB_W-NO ROWS) + 2; 
TEMP"NEXT [DCB-W~COC_START) = .TEMP“NEXT (DCB-W-COC START) - 1; 
4 TEMP-NEXT CDCB-W-NO_COLS = .TEMP_NEXT CDCB-W-NO_COLS) + 2; 
re 5 9 END; ' Bordér adjustment 


F 6 


SDISPLAY_LIN SMGSDISPLAY_LINKS = Virtual Display Linkages 16-Sep-1984 00:29: AX-11 Bliss-32 V4.0-74 P 
im88e SMCSSCHECK OCCLUSION FIRST - Rech’ pastings for 1 ~$007} 382 90:59:28 SMGRTL.SRCISMGDISLIN.B 2;1 age 138 
; 4807 § + 

3: 4 4 ' Check to see if THIS virtual display occludes NEXT 

3 ¢ p rt} vitual display and i so set ecelus on bit of NEXT. 

: rt 19 ‘8 iF SMGSSOCCLUDE ( TEMP_NEXT, TEMP_THIS, OVERLAP) 

: 481 4 NEXT_PP CPP ; 

; 14 ‘3 | EXT_PP CPP_V_OCCLUDED] = 1 

. ‘+ 

3 Z 1 5 } Walk chain in direction of earlier pasted packets. 

; ¢ \8 038 NEXT_PP_Q_HEAD = .NEXT_PP CPP_A_NEXT_PBCB); 

: : , 036 END; ! For all displays from current to bottom 

: 4 05 

: $8 § 038 RETURN (SS$_NORMAL) ; 

> 4825 060 END; ! End of routine SMGSSCHECK_OCCLUSION_FIRST 


ee ee ee ek SS PE OEE PEE FEE FEE FEE FEE FE FEE FEE PEG Phe ook FEe Sek Fe Sek FE FEE Fhe ee See Sek FER OR PE8 See See See oes Sek POE PE Fe 8 Pe FE ME Ps 


003¢ .ENTRY SMGSSCHECK_OCCLUSION_FIRST, Save R2,R3,R4,- ; 4872 
5E 18 C SUBL2 #24, SP ; 
51 06 BC D MOVL  @PBCB, THIS_Q_HEAD > 4960 
1 08 C SUBL2 #8, THIS_PP > 4961 
9 10 Al D MOVL  16(THIS PP), THIS_DCB > 4963 
08 Ai 00 MOVL 8(THIS PP), NEXT _PP_Q_HEAD 3 4972 
06 ac 32 bt cat " XT_PP_Q_HEAD, Pacé > 4974 
52 F8 As E MOV -8(R3), NEXT_PP > 4977 
54 6 MOVZWL (THIS_OCB), R > 4983 
5 18 Al CVTWL 24(THTS_PPS, RS ; 
4 33 C ADDLe RS, RS ; 
10 AE 4 1 A SUBWS «6 #1, R4, TEMP_THIS ; 
12 AE 02 A mOVW e¢fuis pce), TEMP_THIS#2 > 4984 
4 A MOVZ2WL 4(THIS~DCB). R4 > 4986 
1 1A OA CVT 26(THIS_PP), R1 ; 
1 4 ¢ ADDLe 4, R ; 
14 AE 1 1 A SuUBWS «#1. R1, TEMP_THIS+4 ; 
16 AE 6 Ag B 10 MOV 6¢fais DCB) TERP_THIS+6 > 4987 
0€ FOO 106 BLBC (THIS OcBS, 1$ ; 4993 
0 AE B7 00 DECW TEMP_THTS : 4996 
12 AE 0 AQ D0( ADDW2 #2, TEMP_THIS#2 > 499 
16 AEB? 001 DECw =: TEMP_THIS+4 : 4998 
16 AE AO OC ADDW2 #2, TEMP_THIS+6 7 4 
06 ac ; D0( CPL ‘ KT_PP_G_HEAD, PBCB : 5004 
ve Ps 
; fe A dO MOVAB =B(R3), NEXT_PP ; $014 
10 A 006 rove (next PP), "NEXT_DCB : 501 
1 6 0006 MOVZWL  (NEX pte) ; 502 
4 18 OA 0006 CVTWL” 24 NERT PPS, Ré : 
1 3 CG 0006 ADDL 4, RI ; 
08 AE 1 1 A3 0 SuBWS «#1, R1, TEMP_NEXT ; 


SMGSDISPLAY_LIN SMGSDISPLAY_ LINKS rtual dis play Linkages 18-5e -Sep-1 AX-11 Bliss-32 V4. ! 
e856 SMOSSCHEEK OCCLUSION FIRST = Chock, postings for ieekepeione $eiborcs §— Fement Obdessaea Er On 7bS 0.4 Page 139 in 
ms A AQ BO 00076 MOVW (NEXT_DCB), TEMP_NEXT#2 : 
F Of A ; 7B MOVZWL (NENT DCB) . Ri Z : 3983 
4 A 5 4 cvTw 26 (NEXT_PP) , RG : 
Oc AE 1 81 A SUBWS «6 #1, _R1, TEMP_NEXT+ ; 
OE AE 6 AO B MOVW 6GHEXT DCB) “TEMP. NEXT#6 ; 5026 
OE F AOE BLBC  47(NEXT DCBS, 2$ : 50 
8 AE B 94 DECW TEMP NERT : 2036 
was OF AP bb098 ree ete eater ast 
OE AE Coe AO 0009 ADDW2 i. TEMP_NEXT+6 : 5039 
E OD OA 2$ PUSHL SP + 5046 
14 AE 9F OOOA PUSHAB TEMP. THIS ; 
10 AF 9F O00A7 PUSHAB ie ; 
000000006 00 Q FB OOAA CALLS ‘ MESSOCCLUDE ; 
ee 8) fie Sposa Beb2 #1. GOCNEXT : 504 
eg 08 A2 00 0088 3$ MOVL NE XT_PP), “NEXT. PP_Q_HEAD : a0e8 
9B 11 000BC BRB 1s : 5004 
50 01 DO OO0BE 4$ MOVL , RO : 5058 
04 000C1 RET : 5060 
; Routine Size: 194 bytes, Routine Base: _SMGSCODE + 1A48 


; 4826 5061 1 !<BLF/PAGE> 
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DISPLAY_LIN SMGSDISPLAY_LINKS = Virtual Display Linkages Sep-1984 00:29: AX-11 Bliss-32 V4.0-7 P 4 
*ngse SMGSSCREATEPASTEBOARD < Create’ Postoboced font 16- sen-198 99:53:25 FaMGaT Oh des cae er Neg. age 359 
4 ZSBTTL ‘'SMGSSCREATE_PASTEBOARD - te P k (P ,* 
: Sy LS ot, pe gt Hl Ales Create Pasteboard Control Bloc BCB 


CREATE _PASTEBOARD ( 
ROWS 


oO 


—_ 


CcOLS, 
PBCB_ADOR 
) = 


uw 


+ 
FUNCTIONAL DESCRIPTION: 


This eget r allocates pee for a pecteeaes, 69 egyeres block. 
It also allocates a oyert er called t : output buffer 
s 


which is used to buffer output to this terminal 
(if buffering s enabled). . 
CALLING SEQUENCE: 
ret_status.wic.v = SMGSSCREATE_PASTEBOARD ( 
ROW tb re 
COLS.rl.r 
PBCB.wl.rd 


FORMAL PARAMETERS: 


ROWS.rl.r Max. number of rows that a window onto this 
pasteboard will have. 


DEAN $0 OONONE WI" OOONOUE PT 


WOOO OON NNN 


RADE BP a Be Bee Fe MACACA ORS 


WN —OOONO UNE WN "OC OOBVNOAUE WOO 


COLS.rl.r Max. number of columns that a window onto this 
pasteboard will have. 


PBCB_ADDR.wil.r earrese of the newly-created PBCB -- returned to 
er. 


SeUe 


(09 Co C9 Co Cp CD CD CD 
VMMAVIVIUVIVIW 


IMPLICIT INPUTS: 
NONE 
IMPLICIT OUTPUTS: 


items in PBCB get filled in 
in particular, an output buffer is allocated. 


COMPLETION STATUS: 


Fat af af at af af at af at at a MUM UMUMMMAAAMMMAMMMMMMMe 
VEWN 


SSSSPRRERES 


ONOUS WOO 


$S$_NORMAL Normal successful completion 
LIBS_INSVIRMEM inaytt icient virtual memory to allocate needed 
uffers. 


SIDE EFFECTS: 


Be Se Oe Se Se Se Se Se Se Se Ge Se Se Ge Fe Ge Fe Ge Se Ge Se FH Se Se FH Se Be SESE SHS Se Se Se OH Se OH Se Se Se Se SHS SH Se Se Se Se Geese 


+ 


$e 
Seesess3sz 


ets a a ss 9 4 4 4 4 1 E 


, ad at a-ak ae at 2e-2e-2e-2e-2e 
SNANANNNN 

na a 

N=SSe 


2 ek ORe Sek ek ek oe ek ek Oe ek A _— 


—_o 


STATUS = LIBSGET_VM (ZREF (PBCB_K_OUTBUF _DEFAULT_SIZE), 
PBCB CPBCB_A_OUTPUT_BUFFER] ); 
If NOT .STATUS 
THE 
BEGIN 
'¢ 


i If we can't get space for the output buffer, we might as well 
pe back the PBCB space itself as wel) oe the WCB space. 
ie 


gnore any errors that occur while trying to free this space. 


a 

6 | 
SMGSDISPLAY_LIN SMGSDISPLAY_LINKS = Virtual Display Linkages 1b-se 1984 00:29: AX-11 Bliss-32 V4.0-74 Page 141) 
tt SMGSSCREATE-PASTEBOARD - Create Pasteboar Cont 1 mH 1 99:59:28 SMGRTL.SRCISMGDISLIN.B 2;1 9° (29) | 
; 4 113 BEGIN | 
>; 4881 114 LOCAL 
; $ ¢ V1? PBCB : REF SPBCB_DECL, ! Address of PBCB allocated. | 
3 re : 1} STATUS; ! Status of subroutine calls | 
; 48 113 LITERAL 
; 4888 1 PBCB_K_OUTBUF _DEFAULT_SIZE | 
: 4890 1 4 = 256; ! Default size for output buffer 
; : 4! } : ! Cif all other algorithms fail) | 
: 489 1 \4 | 
: tage : ? Allocate space for the PBCB itself. 
; re 4) 129 "IF NOT (STATUS = LIBSGET_VM (ZREF (PBCB_K_SIZE), PBCB)) | 
; 489 130 THEN 
; og8 : 1 RETURN (.STATUS); | 
: 4900 1 : CHSFILL (0, PBCB_K_SIZE, .PBCB); ! Clear all fields to default 0 | 
: 4902 138 $3 | 
; '¢ 
: 490 1 : ! Allocate the window control block that goes along with this 
3 ree : i pasteboard, returning failure if we can't. 
: 4906 139 If NOT (STATUS = SMGSSCREATE_WCB (.ROWS, .COLS, PBCB CPBCB_A_WCB3)) 
; rhe $141 BEGIN ! No more space 
: 4910 8108 i If we can't get space for WCB, we might as well give back 
; rede bbe: } the PBCB space itself. 
: 491 18 LIBSFREE_VM (ZREF (PBCB_K_SIZE), PBC8); 
3 4916 14 RETURN (.STATUS); 
3; 4915 Pe ND; ! No more space 
: 2519 180 $ 
: '¢ 
3; 4918 151 ! Allocate output buffer that goes along with this pasteboard, returning 
3 136 ! failure if we can't. | 
: 15 ! This buffer is used (if buffering is enabled) to buffer all output to 
; 154 ! this SALARARK « 
; 155 2 ! When V3B comes out. we should do a better job in figuring 
; 128 ! out a good size for this buffer by ook inp at sysgen paramaters 
; 1 and user quotas, etc. For now, we just allocate a fixed space. 
: 49 135 
: 1 
: 1 
3 1 
; 1 
3 1 
; 1 
$ 1 
3 1 
: 1 
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SDISPLAY_LIN SHGSDISPLAY LINKS = Virtual Display Linkages 15- Sep-1984 9: AX-11 Bliss-32 V4.0-7 P 4 a 

att SMGSSCREATE_PASTEBOARD - “Create Pasteboar Cont 1 Sep- 38 99: 83 8 SMGRTL.SRCJSMGDISLIN. 8 231 age 355 a 
; 4937 1 SMGSSDEALLOCATE WCB( .PBCB CPBCB_A WCB) ); ; 
; a388 159 LIBSFREE VR COREE (PBCB_K_SIZE), PBCB); ; 
Be he | i 
: 4941 174 ’ ; 
i 494 17 PBCB CPBCB_W_OUTPUT_BUFSIZ] = PBCB_K_OUTBUF_DEFAULT_SIZE; ! allocation | ; 
: 4944 17 rr ; 
: $302 178 Initialize pasting queue header to self. : 
: 494 180 2 PBCB CPBCB_A_PP_NEXT) = PBCB [PBCB_A_P p NEXT; ; 
> 494 181 PBCB CPBCB-A-PP~PREV) = PBCB CPBCB-A~PP~NEXT):; ; 
; 1990 i 5 '¢ : 
3 $323 184 Initialize mode settings to default. ; 
; 4358 3186 PBCB CPBCB_L_MODE_SETTINGS) = PBCB_K_DEF_MODE_SETTINGS; ; 
: 4955 188 2 !+ ; 
: $328 5188 3 | Return the address of the PBCB we've built. : 
: 4958 3191 -PBCB_ADDR = .PBCB; : 
> 4960 5198 RETURN (SS$_NORMAL); : 
: 4961 194 1 END; ! Routine SMGSSCREATE_PASTEBOARD ; 
00FC 00000 -ENTRY SHGSSCREATE_PASTEBOARD, Save R2.R3.R4.RS.- ; 5063 ; 
$7 000000006 99 E0000 MOV L16SGET_vM, R? ; ; 
Se 8 SUBL2 #8, SP : ; 
04 AE OF C PUSHAB pecs : 5129 ; 
04 AE O14¢ BE $C 0000F MOVZWL 4(SP) 3 
67 ; F 13 CALLS #2, LIBSGET_VM : ; 
i Spas cee Hg ! 7 
O14c BF 00 ée o, 22 5c i MOVCS #0, (SP), #0, #332, aPBCB ; 5133 3 
7E 06 A i O8 $1 002A ADDLS #8. PBCB, (SP) ; 5139 3 
0000v CF F CALLS be snctScheare _wCB ; F 
6 D0 000 MOVL ; ; 
i E9 00C BLBC STATUS, ; 
: be AD BF 00K PUSHAB \ ha) ian 
06 AE 0195 BF 3¢ 000 3 MOVZWL #256. 4(SP) ; 5160 : 
U ; Ps 
7 FB 00C F CALLS #2, LIBSGET_VA : 5161 ; 
6 DO 000 MOVL a ; : 
v oe BES a ig. He) |: 
U : : 
0000v CF 01 FB O00SA CALLS #1, SMGSSDEALLOCATE_wCB : ; 
04 AE 9F O005F 18: PUSHAB Pate : $171 ; 


SAEED ISPLAY LIN SMGS 
1-096 SMGS$ 


; Routine Size: 


: 4962 


K .o 
DISPLAY_LINKS = Virtual Display Linkages -1984 00:29: AX-11 Bliss-32 V4.0-7 Pp 43 
SCREATE_PASTEBOARD - Seubnepen: Cont 1 12: + 38 99:69:28 SMGRTL.SRC SHED ISLIN. 3 2;1 a9 5 
04 AE 014¢ C MOVZ2WL #332, 4(SP) : 
000000006 as i i PUSKAS 4 es 2 osraee _ve : 
98 2 06 H 28: OVE Se arte + 5172 
50 AE D 7 3%: MOVL ‘ + 5175 
70 Ad 0190 F B 7A MOVW of 8 a0 : 
6 D MOVL RO, °F RO) + 5180 
: & D MOVL RO, 4(RO) : 5181 
Cc =hU«COA i) MOVL #2, 12(R0) ; 5186 
¢ BC D MOVL RO, @PBCB_ADDR + 5191 
1 p OBF MOVL #1. RO : 3193 
4 RET : 5194 


147 bytes, Routine Base: _SMGSCODE + 1B0A 


5195 


1 !<BLF/PAGE> 


un 
42 
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SDISPLAY_LIN SMGSDISPLAY_LINKS = Virtual Display Linkages 16-Sep-1 AX-11 Bliss-32 V4.0-74 Page 144 

ieo8e SM Meese EATE_VIRTUAL_DISPLAY - trea e Virtual Di 1 “520-19 99: 89; 4 SMGRTL.SRC Shep {Si wn 68231 ° (463 

4964 1 $ ZSBTTL SHOSSEREATE oY VIRTUAL_DISPLAY = Create Virtual Display’ 

4965 1 GLOBAL ROUTINE SMGSSCREATE_JIRTUAL_DISPLAY 

$308 1 3 NUM_ROWS, } i tg t 

496 19 NUM_COLS dth 

4968 ’ EW DISPLAY 1D: 

4969 DISPLAY ATTRIBUTE 

4970 ¢ VIDEO_ATTRIBUTES, 

4971 CHAR_SET 

497 4 )= 

497 5 'ee 


i FUNCTIONAL DESCRIPTION: 


virtual display. 
DISPLAY_ATTRIBUTES.rl.r The default display attributes. 


SMGSM_BORDER if virtual Mey fs to be 
displayed with a bor der. 


SMGSM_TRUNC_ co if an icon should be displayed 
+ on Sent overflows the display 
ounds. 


SMGSM_DISPLAY_CONTROLS if carriage controls (CR, 
TRF, VT, HT) should be displayed listeed 
a4 cote 


VIDEO_ATTRIBUTES.rl. : a default rendition S de to be 
appli 4 to all output to this ereptey, unless 
overridden on a particular qutaur ca 


4975 

497 & This routine creates a new virtual display -=- returning its 

497 09 assigned display_id. Its initial contents are blanks with 

4978 10 video attributes set . those specified. The cursor 

4979 11 will be at row 1 colum 

4980 \§ This s the fnner-most. create. virtual_display routine. It 

rp 1 17 assumes all of its parameters are present. 

4388 13 CALLING SEQUENCE: 

4985 i$ ret_status.wic.v = SMGSSCREATE VIRTUAL_DISPLAY ( 

49 18 NUM_ROOS.rl.r, ' Height 

49 1 NUM_COLS.rl.r ! Width 

4988 0 NEW-DISPLAY IO.wl.r, 

4989 1 DISPLAY_ATTRIBUTES.rl.r, 

4990 § VIDEO_A ATTRIBUTES. Flr, 

439) ? CHAR_SET.rl.r) 

499% 5 FORMAL PARAMETERS: 

red § NUM_ROWS.rl.r Number of rows in new virtual display. 

i397 § NUM_COLS.rl.r Number of columns in new virtual display. 

4999 ; NEW_DISPLAY_ID.wl.r Virtual display id of newly-created 
5 


33 


Values: 


3 
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SMGSDISPLAY_LIN SM PLAY_LINKS = Virtual Dis 1984 229: AX=-11 Bliss-32 V4.0-74 Page 145 

n8oe M EATE_VIRTUAL_DISPLAY = Create Virtual Di 1 ~300n 138% 99:53:28 SMGRTL. Reismep i sign. 69251 9° 30) m 
; 9 1 SMGSM_BLINK displays characters blinking. : ij 
: 6 § i SMGSM_BOLD displays characters in 3 | 
: 33 higher=than-normal intensity. 4 
: ° ‘ i SMGSM_REVERSE displays characters in reverse ; é 
: : video == that is, using the i 
; 5028 ' opposite default rendition of i i 
3 8 3 the virtual display. ij 
; 5031 SMGSM_UNDERLINE displays characters underlined. ; 
: 8 i i CHAR_SET.rb.r Specifies the default character set to be used : ‘ 
3 ° ! for this display. : ij 
; 5 ! Recognized values are: a 
; 50 SMGSC_UNI TED_KINGDOM 3 | 
; 50 : SMGSC_ASCII Tdefault) ij 
; $0 SMGSC"SPEC GRAPHICS 3 | 
; 5039 SMGSC_ALT_CHAR 3 § 
; ee SMG$C_ALT_GRAPHICS ij 
; O4¢ { IMPLICIT INPUTS: + 
> 5044 i NONE : 
: 5045 ! Fe 
: Bee ! IMPLICIT OUTPUTS: | 
; 504 ! 33 
; 5048 : NONE | 
: 5049 : #| 
3 bat COMPLETION STATUS: : ; 
; 5082 i $S$_NORMAL Normal successful completion 7 § 
; 034 L1BS_INSVIRMEM snout tic tont virtual memory to allocate needed : i 
oo . U er. Py 

; 33 ; SMGS$_INVARG Unrecognized Video Attributes | 
3 B29 or Unrecognized Display Attributes : i 
; 38 i SIDE EFFECTS: 3 | 
3 305 : 3; 
3 : NONE 3 
. 1 leo Py 
3 § BEGIN : i 
; STATUS ! Status of subroutine colts oj 
; 5065 DCB: REF $oCB DEC. i Addr of display control b ok 3 i 
; DESC : REF BLOCK C8.eyTE); | P9 nter to dynamic descriptor in i 
3 ! DCB for border label : | 
; 16 3 | 
; 20 ; Allocate space for DCB itself. Quit if we can't get it. : i 
; if IF NOT (STATUS = LIBSGET_VM ( ZREF (DCB_K_SIZE), 0CB)) } 
; 7 RETURN (STATUS); 3 | 
; A CHSFILL (0, DCB_K_SIZE, .DCB); ! set all fields to default of 0 ; 


N 6 
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SAGSDISPLAY. LIN SRGSDISP 
a Set up dimensions of Re 
"pce DCB _W_ROW START] = 
DCB [DCB"W"NO ROWS] _ = M_ROWS; 
ocB CocB-w" coc START} © nN 
DCB CDCB"W-NO 0.0 Ls = ,.NUM_COLS; 
dCB CDCB-L~BUFS! = ..NUM “Rows * ..NUM_COLS; 


ow 
413 


'¢ 
Set up various fields in the DCB 


DCB COCB_L_DID] = .DCB; ! Display id itself -=- the 
i address of the DCB 


cs 


3 77 i 
7 1 
1 
} . 
Ht i 
a8 i 
0 1 1+ 
0 i Record default display attributes, default video attributes and 
] H default character set. 
1 é DCB CDCB_B_DEF_ piseL Ay ATTR] = “BIL AY ATT Rigyres: 
§ 4 DCB CDCB_B-DEF_VIDEO_ATTR) = ..VIDEO_ATTRIBUTES; 
5 DCB (DCB"B_DEF-CHAR_SETJ = AAR Oe T: 
35 ‘ 
oa 
098 0 
099 
5 


DCB COCB_W_CURSOR_R ou) = 1; ! Cursor row and column to home 
8g ocB dcB_ w- CURSOR- COLJ = 1; 
04 DCB CDOCB_B_STRUCT TYPE] = DCB_K_STRUCT_TYPE; ! Mark as being a DCB 
05 DCB COCB_W-DCB_LERGTH = DCB_-K-SIZE; ! Size of structure 
$8 DCB CDCB_W_TOP_OF _SCRREG) = .DCB coce ew ROW_ START]; 
ocB LoCcB ~W_BOTTOM- OF “SCRREG) = .0cB COcB_w 0 ROWS); 
! inte” scrolling region 


te 
i | Si igeete enough space for both the text buffer and the attribute 


IF NOT (STATUS = LIBSGET_VM (ZREF (.0CB COC Bt Burs SIZE] *2), 
— DCB COCB_A_TEXT_BOF 
BEGIN ! Ran out of space 


i "it we can't get enough space for the buffers, we might as well 
give back the DCB space itself. 


Oo wt Ot 


NOU EW 0 OOO fwn oO 


Lipsenee_yn tune’ (DCB_ K SIZE), OCB); ! Return DCB space 
RETURN ([STATUS) “Return the i168 BS INSVIRMEM from the 
Sites allocation attempt 


NOU EW O ONO UE WIN O OO 


END; ! Ran out of eS 


'¢ 
_Use upper half of space allocated as the attribute buffer. 


DCB COCB_A_ATTR_BUF) = .DCB COCB_A_TEXT BUF) + .DCB CDOCB_L_BUFSIZE); | 


wn 


'e 
Initialize text and attribute buffers. 


ek ek ek ee ek ek ek es es 


ee a a ad 8 ot = 2 8 = 8 


MGSDISPLAY_LIN SMGS$ l ink 
9 = . ay Linkages 


eate Virtual 


p 
r 
.0CB CDCB_L_BUFSI 
B foCB8 EF VIDEO AT 
B CDCB-A J; 
'+ 


D 

~ATTR_BUF 
i If we are dealing with a non-standard character set, allocate the 
! char_set buffer. If we can't, bail out, giving back all the space 
allocated on this transaction. 


a CDOCB_B_DEF_CHAR_SET] NEQ 0 
BEGIN ! Will need char_set buffer 
IF NOT (STATUS = LIBSGET_VM ( DCB poco pul $126). 
DCB COCB"A~CHAR_SET.BUFI)) 
THEN 
BEGIN ! Bailout 
i If we can't get space for buffer we need, 
! the text and attribute buffer, and DCB its 
quitting. 
LIBSFREE_VM (XREF (2 
LIBSFREE_VM (ZREF (DCB_R 
RETURN (.STATUS); 
END; ' Bailout 


CHSFILL (.0CB CDCB_B_DEF_CHAR_SET) 
“DCB CDCBTA~CHAR_SET~BUF JS; 


END; ! Will need char_set buffer 


‘38 AX-11 Oi fege3e V4.0-74 Page 147 
SMGRTL.SRCJSMGDISLIN.B52;1 (30) 


—+—™ Oo 


DCB L_BUFSIZEJ), 
TEX 1); 
5! DCB); 


nu 
fas | 


-DCB COCB_L_BUFSIZE), 


foo * atest oat Sales lealeal eal eal eal al euler oP oP oP oP a? oP oP oP or ie ee ee 


+ 
' Allocate and clear the Line characteristics vector. 


le 
IF NOT (STATUS = LIBSGET_VM ( ZREF ( .DCB COCB_W_NO_ROWS] +1), 
THEN DCB COCB_A_LINE_CHARIS) 


BEGIN ! Error path 


i Give back all space accumulated on this trans. before 
bailing out. 


LIBSFREE_VM (ZREF (2 * .0CB COCB_L_BUFSIZE)), 
DCB CDCB_A_TEXT_BUFI); 


IF DCB CDCB_A_CHAR_SET_BUF] NEQ 0 
LIBSFREE_VM ( DCB COCB_L_BUFSIZEJ, DCB CDCB_A_CHAR_SET_BUFJ); 
LIBSFREE_VM (ZREF (DCB_K_SIZE), DCB); 


RETURN (.STATUS); 
END; ! Error path 


CHSFILL ( 0, .DCB COCB_W_NO_ROWS) + 1, .DCB COCB_A_LINE_CHAR]); 
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-- n-a 
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= mc 
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~~ .- 
on ~ 
x bed 
@ 

o 

-_ 

® 
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7 
MGSDISPLAY_LIN SMGSDISPLAY_LINKS = Virtual Display Linkages 16- Sep-1984 9: AX-11 Bliss-32 V4.0-74 Pa 4 
tr SMGSSCREATE_VIRTUAL_DISPLAY ~ Preate Virtual Di 1 300-138 9: 89 28 SMGRTL.SRCJSMGDISLIN.B832;1 ge 468 
; 138 424 
3; 519 425 '+ 
: 132 : 8 Initialize pasting queue headers to point to self. 
3; 5196 428 DCB [DCB_A_PP_NEXT] = DCB CDCB_A_PP_NEXT); 
; 5197 429 DCB DCB- AL “PP- PREV] = DCB DCB- A_ Pp “NEXT); 
; 5198 430 
; 5199 431 '+ 
3 2500 e ¢ Initialize border label descriptor to virgin dynamic string descriptor 
. S oe 2 ¢ DESC = DCB CDCB_Q_LABEL_DESC]; 
; 2 04 a4 6 DESC CDSC$B_CLASS = DSCSK_CLASS_D; 
3; 5205 5437 DESC COSCSB_DTYPE = DSCSK_DTYPE_T; 
3 H 06 5438 
: 07 5439 '¢ 
: 5208 5440 i Return the new display id to caller 
; 5209 5441 ie 
; 2519 ek -NEW_DISPLAY_ID = .DCB; 
s Set) 544 
; 321g 5444 2 RETURN (SS$_NORMAL); 
; 521 5445 1 END; ! Routine SMGSSCREATE_VIRTUAL_DISPLAY 
O3FC 00000 ENTRY SeGSSCREATE-NE VIRTUAL_DISPLAY, Save R2,R3,R4,-; 5197 
59 000000006 00 9E s94't3 MOVAB He, vm. "9 ; 
58 00000000G 00 1 MOV fies 3 
5E 08 0010 SUBL F 
04 AE 9F 0001 PUSHAB ; 5304 
04 AE 70 «68F OA 364 MOVZBL rite 4(SP) : 
04 AE 9F 0001B PUSHAB 4(SP5 : 
68 fe Bast CALLS eee b L 1BS6eT VM Z 
57 DO 00021 MOVL TS 5 
03 &8 0024 BLBS SI TATU : 
OOFS 31 00027 BRW r 
56 04 . Be OO2A 1$: MOVL R6 ; 5308 
0070 =8BF 00 6E 9 C + 3 MOVCS te (SP), #0, #112, (R6) 3 
66 01 8B 6 MOVW #1, (R6) ; 5313 
9 A Bt 8 MOVW aNuM ROWS, 2(R6) 3 2 14 
4 A B MOVW #1, &CR6 3 15 
6 A6 r BC B Ohe VW UM_COLS R6) 33 1$ 
3¢ A6 4 BC BC § 4 MULL3 co UM_ROWS, 60(R6) : 531 
F Ab 10 BC 4 MOVE $ @DISPLAY_ATTRIBOTES, 47(R6) : 5323 
26 16 BC 9 MOVB av iDEO ATTRIBUTES, 46(R6) > 5324 
A6 18 £ 9 MOVB R_SET (R6) : 5 
Ab D D MOVL +9 sage Ros ; 9 
A6é 00010001 «BF 1 MOVL 4635 40(R6) : 5 
44 A6 11 69 vB #1 68(R6) 3 5 : 
45 Ab 70 «8F 2 : MOVZBW #112, 69(R6) : 
48 A6 6 VL (R6) 2(R6) $ 9 
10 Ad OF 0007 PUSHAB 16(R6) : 5347 
04 AE 3C A6 0 8 7 #i, 60(R6), 4(SP) ; 5346 


uh hd 


1) <2 
SMGSDISPLAY_LIN SMGSDISPLAY_LINKS = Virtual Display Linkages Sep 4 9: AX-11 Bliss-32 V4. Page 149 
meee SMGSSCREATE-VIRTUAL_DISPLAY = Create Virtual Di 1 1:8 Sep 1382 99: 83 SMGRTL.SRC ae Tsnep isin. 880, :1 . 6) 
04 AE OF O007F PUSHAB ; 
68 F CALLS ie. " LIBSGET. vM + 5347 
03 E BLBS eI TATUS. oS 35 
0083 5 B BRw : 
56 4 AE bo 2$: MOVL : 5362 
4% 10 Ab C ag s ADDL ofa, 6 16,86). 0(R6) : 
Ab 20 6E ‘2 00 C 0 99 MOVC ; , (SP) 60(R6), @16(R6) : 5367 
Ab 2E AG 6E ‘ 00 2¢ SAI MOVCS #0, (SP), 46(R6), 60(R6), @20(R6) + 5369 
30 Ab 5 QOAA TSTB 48 (R6) : 5376 
2A 13 OOOAD BEQL  4$ : 
18 Ab OF OOOAF PUSHAB 24(R6) : 5380 
3C = AG OOF 0008 PUSHAB 60(R6) : 5379 
Q FB 008 CALLS #2, LIBSGET_VM : 5380 
57 D 00088 MOVL RO, STATUS : 
5 EB 008B BLBS STATUS, 3$ : 
10 A6 SF OOOBE PUSHAB 16(R6) + 5389 
04 AE 3C AG 01 78 d00c1 ASHL #1, 60(R6), 4(SP) : 5388 
04 AE 9F 000C7 PUSHAB 4(SP) : 
42 11 OOOCA BRB 5$ + 5389 
50 04 AE 00 000CC 3s: MOVL. OCB, RO : 5394 
AO 30 Ad 6E - 09 2c 90009 MOVCS #0, (SP), 48(RO), 60(RO), @24(RO) : 5395 
52 04 AE 00 00009 4$: MOVL pce R2 + 5404 
4C Ad 9F 000DD PUSHAB 76(R2) F 
04 AE 02 A2 3¢ 000E0 MOVZWL 2(R2), 4(SP) + 5403 
04 AE 06 OO0ES INCL 4(SP) : 
04 AE 9F OO0ES PUSHAB 4(SP) : 
: FB OOOEB CALLS #2, LIBSGET_VM > 5404 
57 D OOEE MOVL RO, STATUS ; 
5 3 OOF BLBS STAT S, 8$ F 
10 A2 9F O00F4 PUSHAB 16(R2) + $412 
04 AE 3c A 01 78 000F7 ASHL #1, 60(R2), 4(SP) : 5411 
04 AE 9F OOOFD PUSHAB 4(SP) : 
69 02 FB 001 CALLS #2 LIBSFREE_VM + $412 
18 A2 05 001 TSTL  24(R2) : 5414 
09 1 1 BEQL 5 ; 
18 A2 9F 001 PUSHAB 24(R2) + 5416 
3C = A2sO9F «001 PUSHAB 60(R2) : 
69 02 FB OO10E 5$: CALLS #2, LIBSFREE_VM ; 
04 AE 9F 00111 6S: PUSHAB DCB ; 5418 | 
04 AE 0 8F 1) 114 MOVZBL #112, 4(SP) ; 
04 AE 9F 00119 PUSHAB 4(SP5 : 
9 9 FB 11¢ CALLS #2, LIBSFREE_VM : 
0 p 11f 7$ VL — STATUS, : 5420 
4 001 RET ; 
56 04 A b0 123 8S VL pce R6 > $423 
2 =A ¢ 1 MOVZWL 2(R4), RO ; 
3 p 128 INCL R ; 
50 00 6E wee C MOVCS #0, (SP), #0, RO, @76(R6) ; 
0 A A : 1 MOVAB (RG). $2(R6) i 5428 
.' s A 139 MOVAB (R6). 36(R6) : 54 
5 AB : 1 MOVAB (RO), DESC : 54 
02 A 020E 8F B80 0014 MOVW #526, 2(DESC) : 54 


_ 


7 
PRRISMUN LO" SRERRERGAT HAC BSHURE BELLA aeRE ov TEREECIEE Q0:S8:29 MGA SUEERESYSGZARe1 CUR 
a it AB Galatta, gyeesruari : 
4 OO14F RET : 5445 


; Routine Size: 336 bytes, Routine Base: _SMGSCODE + 1B9D 


; 5214 5446 1 !<BLF/PAGE> 
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DISPLAY_LIN SMGSDISPLAY_LINKS = Virtual Display Linkages Sep-1984 00:29: AX-11 B 32 V4.0-74 Page 151 } 
emgse SMGSSCREATE“HCB = Create WCB ang its but tees 16> sen 1944 99:53:28 — FeMGate sre isneoy si wn 69251 oe 3) 58 
; 521 447 1 XSBTTL 'SMGS aaMeate WCB - Create WCB and its buffers’ i 
: : is : GLOBAL ROUTINE SMGSSCREATE WCB ¢ : 
; 18 450 1 COLS. : 5 
; 9 4 1 GCE ADDR 3 3 
: 3eee 038 | se : FS 
3 Z : : : FUNCTIONAL DESCRIPTION: : | 
: 5 4 § 1 i This routine allocates space for the window control block and 3 | 
3 8 457 1! its window text and attribute buffers and initializes them. 3; 2 
3 te 1! Two sets of these two buffers are built -- one to reflect what 3 2 
: 8 4 : s is currently on the screen and one to build up what the next ar 
$ 2 ; re : screen image should look Like. : é 
: 5231 46g | CALLING SEQUENCE : 3 
; 2 ’ S484 1/ ret_status.wic.v = SMGSSCREATE_WCB ( ROWS.rl.r, F ; 
3 3 465 1! COLS.rl.r, 3 o 
; 5235 46 WCB_ADDR.wl.r) 3 3 
: é 3? 468 ; FORMAL PARAMETERS: 5 
: 3 39 470 1: ROWS. rl.r No. of rows in each of the buffers : H 
: 940 p47) 1 3 5 
3 : $1 are : COLS.rl.r No. of columns in each of the buffers : H 
7 5 ag athe 1! WCB_ADDR.wl.r Address of the newly-created WCB -- returned to : 5 
: 52464 475 1! caller. ; 2 
: 5245 are 1 | ; 5 
Be ey ‘ 
: 5 48 ‘78 IMPLICIT INPUTS: 

‘i Bh] 

3; 5 38 4 : { IMPLICIT OUTPUTS: 

; 54 4g5 1 | NONE | 
; $3 is | COMPLETION STATUS: | 
: 8 4 1 $$$_NORMAL Normal successful completion | 
: 525 490 1! LIBS_INSVIRMEM Insufficient virtual memory to allocate needed 

3 rst red : buffer. | 
: 526 493 1 | SIDE EFFECTS: 

: 526 494 1} | 
3 3 $e? : : NONE 

; 66 499 "BEGIN | 
; 326 $38 LOCAL | 
3 v4 4 ue : REF $WCB_DECL, ' Address of WCB allocated. 

: %6 i STATUS; ' Status of subroutine calls 

: 527 

: 5272 § 


te 
' Allocate space for the WCB itself. 


KS - Virtual Disp ley Linkeges 18-se ~pe07 1388 99: ga 28 AX-11 Bliss-32 V4.0-7 Poge 13¢| 


SPGSDISPLAY_LIN SnGeD SPLAT 
SMGS$ Create WCB and buffers 14-Sep-1 SMGRTL.SRCJSMGDISLIN. 3 2:1 


LIN 
CREATE WCB 


r~ 


fen” (STATUS = LIBSGET_VM (ZREF (WCB_K_SIZE), wWCB)) 

RETURN (.STATUS); 
CHSFILL (0, WCB_K_SIZE, .WCB); ! Clear all fields to default 0 
WCB CWCB_L_BUFSIZEJ] = ..ROWS * ..COLS; ! Overall size of each buffer 


' +e 
i Attempt to get space for all 4 buffers at once, returning an error if 
t we can't. 


IF NOT (STATUS = LIBSGET_VM ( nner (4 * ,WCB CWCB_L_BUFSIZE)), 
ote B CWCB_A_TEXT_BUFI)Y 


BEGIN ! No more space 


i 
wT, we can't get space for buffers, we might as well give back 
5 the WCB space itself. | 
| 
| 


LIBSFREE_VM cones (WCB_K_SIZE), WCB); 
RETURN ([STATUS); 
END; i No more space 


SSPeRLSSSUS ORES ES Sa & 


oo 
con 


1+ 
Carve up the space gotten into the 4 buffers we need. 


WTIPIPIPINIPINPOPePonononofenononoronofopnnnonrnfor 


Lv) 
RENO eee SSoSSssess 


WCB CWCB_A_ATTR_BUF J = .wCcB ucB A_TEXT_BUF .wcB B_L_BUFSIZE); 
WCB CWCB-A_SCR_TEXT_BUF] = .wWCB B-A_TEXT_BUF +28 .WCB B-L-BUF SIZE); 
wCB (wCB_ -A_ SCR_ “ATTR “BUF = “WCB uce- A_ TEXT” BUF ‘wCB ucB- L “BUF SIZE 5 


'¢ 
g Initialize the working buffers. 


CHSFILL (2C° °, .WCB CWCB_L_BUFSI 
CHSFILL (0, -WCB CwCB- + “BUF SI 


CONAN E WN HO ODA UE WN SO OONOUE WN" OOONOU 


wCB UCBCA R-B 


14 

! Initialize the buffers representing what's on the screen to non- 
! matchable text as an initial state. This means the first time 

! minimum screen update looks at it it will cause the entire window 
& to be repainted. 


CHSFILL (-1, .WCB CWCB_L_BUFSIZE EY. -WCB pus B_A_S EXT _BUF + 
CHSFILL (0, .WCB CWCB"L-BUFSIZE), .WCB CWCB"A7S FIR _BUF 


| 
| 
$2: 2b RATAN RU 


Fk ek tak el, te 


'¢ 

i ae toeeee ag osae character tet te vectors. There are two of them -- 
i one for the buf fer and one for the screen text buffer. We 

: allocate A tn tialize them together for efficiency. 


IF NOT (STATUS = LIBSGET_VM ( ZREF (2 © (,,.ROWS + 
—_ WCB CWCB_A_LINE MEwaRI)) 


GEGIN ! Error path 


LU PUPULVLUPULULPUPULULU SULIT 


SSeS SS 


OOO NAUNE WN OC ODNOU LEWIN 


PUPP LUD LVPVPUPV DVD PVD DVLVPUPVSIVST DUP SPUPUIISLUSTSV SIV SUSVSUSIST SST SSIS SISISISIIIIT 


PUDPUPVPV DVL PUD DVDPVDVLUPVDV SPUD AVSVDVSUSVSTSI SST SISTINITIUIUT 


Sones ] 
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SMGSDISPLAY_LIN SMGSDISPLAY_LINKS = Virtual Display Linkages 16-Sep-1984 00:29: AX-11 Bliss-32 V4.0-74 P 53 
ngSe SMOSSCREATESUCD > Create UCB ang Ses butters 1acgepeione $$:60.c8 — Femorte seeishep tsi gn o$2s1 matt ib 
: 9 ee Give back all space accumulated on this transaction. | 
; : LIBSFREE_VM ( REF (4 * .wCB CWCB t BUF SIZE), 
; ? re) WCB CWCB_A_TEXT_BUFIJ); 
: 5335 6 LIBSFREE_VM ( XREF (WCB_K_SIZE), WCB); | 
: ? * END; T Error path | 
; 3 &3 ; Clear both buffer to zero at once 
: : 40 ‘i "  CHSFILL (0, 2 * (..ROWS + 1), .WCB CWCB_A_LINE_CHARJ); 
: 534 7 1+ 
$ j 74 ! Use upper nett of space just allocated and cleared as the Line 
: ; 3 e characteristics vector for the screen text buffer. 
3 ; g i WCB CWCB_A_SCR_LINE_CHAR] = .WCB CWCB_A_LINE_CHAR] + ..ROWS + 1; 
; 8 7 ‘+ 
; 5 r}4 389 Fill in rest of WCB and return the address of the WCB we've built. 
: 2 51 SB "WCB CWCB_W_NO ROWS] = ..ROWS; 
; é 26 58 WCB CWCB-W_ROO_ START) = 1; 
> 535 584 wCB CwCB"Ww-NO COLS) = ..COLS; 
; 2 28 aH wCB CwCB-W-COC_START] = 1; 
: 5 36 289 .WCB_ADDR = .WCB; 
; 535 588 
; 3338 3389 RETURN (SS$_NORMAL); 
; 5359 590 END; ! Routine SMGSSCREATE_WCB 
OFFC 00000 -ENTRY SHGSSCREATE UCB, Save R2,R3,R4,R5,RO,R7,RB,~; 5448 
58 000000006 00 MOV LJOSEREE_vM, R11 : 
E 0 ¢ SUBL2 #8, SP : 
04 AE Pus we : 5505 
04 AE 34 MOVL #52, 4(SP) : 
04 A PUSHAB 4(SP) : 
000000006 ; CALLS 43, LIBSGET_VM : 
A 10 MOVL RO, STAT : 
A A 10 BLBC = STATUS ; 
6 oo A 10 MOVE, = WCB, Ré : 5509 
34 00 6E 06 i! mOovCS » (SP), #0, #52, (RO) ; 
ue 3 
9 BC 10 MOVL  a@ROWS, RI ; 5511 
28 «Ab 9 } 8 ‘ MULL3 @COLS, R9, 40(R6) : 
PUSHAB 3 3318 
04 «AE 28 «Ab 0 ASHL #2, 40(R6), 4(SP) : 551 
06 A PUSHAB P) : 
000000006 ; CALLS #2, {8651 vA ; 5518 
A nOVE RO, $ ATYS 3 
11 A BLB STATUS, : 
06 AE Pus wCB ; 5525 


a3 


Oe oa Oe eal eal eal al al ah ah Ab Ab al Ah sb hh dh Ab dh hb bh Abb ab ih ih ib ih ib db abl 
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MGSDISPLAY_LIN SMGSDISPLAY_LINKS = Virtual Display Linkages 15-50 Sep-1 AX-11 Bliss-32 V4.0-74 4 
att SMGSSCREATE“WCB = Create WCB and its sity 17-eP= 188s PEiKis§ «| HaMGAT Ok tegcse ve On7Ks. Page 134 58 
04 AE 8 5 MOV #52, 4(SP) ; : 
04 PUSHAB 4(S : ; 
68 FB A CALLS ae LIBSFREE_VM : ; 
A 20 1$: ROVL ATUS, RO : 5526 ; 
4 AE 00 28: MOVL WCB, R6 : 553 ; 
sf os A ae MOVAB 8(R6) Rv, : 7958 ; 2 
: A : MOV 40(R65, RB : : 
OC a6 6 C ADDL re): (R7), 12(R6) : ; 
0 b0 MOVL (RB). RO + 5533 ; 
4 «OA 00 874 7 MOVA a(R? EROI, 20(R6) : ; 
50 $ ra 78 MULL3 #3, (RB), R + 5534 ; 2 
18 Ab § 7F ADDL tad) RO, wat : ; 
68 20 6e oo 29 26 90084 VES #0, (SP), #32, CRB), @0CR7) ; 5539 : 3 
68 00 6E se 0 2¢ 6 MOVCS #0, (SP), #0, (RB), a12(R6) : 5540 : H 
68 FF OF 6E 1 00 2 i MOVCS #0, (SP), #=1, (RB), @20(R6) ; 5548 i 2 
A MOV #0, (SP), #0, (RB), @24(R6) + §549 : 
68 00 6E a 09 2¢ 0009A cS #0 0, (RB), a2 : 55 ; 3 
2c Ag 9 Al PUSHAB 44 (RG) : 5557 ; 3 
52 53 Ab ASHL R3. R2 : 5556 : 5 
2 : C Aa ADDL2 ag: he ; : 5 
04 AE p AB VL Re. 4&(SP) : ; 5 
04 AE 9F OOOAF PUSHAB : : 5 
000000006 90 F 082 CALLS 2, LIBSGET_VM : 5557 : 5 
A D MOVL RO. STATUS : : 5 
AE C BLBS = STATUS, : 7 5 
7 bp F PUSHL R + 5564 : 
04 AE 68 me 02 i. cl ASHL #2, (RB), 4(SP) : 5563 ; 
68 02 FB £§ CALLS #2, LIBSFREE_VM > 5564 7 5 
04 AE 9F O00CC PUSHAB : 5566 ; 
04 AE 34 po CF MOVL #52, 4(SP) : ; 
06 AE 9F 00003 S 4(SP) : 3 
0 FB 06 CALLS #2, LIBSFREE_VM ; ; 
06 A p D9 3S: MOVL WCB, R : 5571 ; 
52 00 bE , 9 C MOVES #0, (SP), #0, R2, @44(R7) ; : 
50 59 ac A? gi E ADDL3 44(R7), RO, RO : $577 ; 
39 A? 1 A £9 MOVAB 1(RO) 358¢R7) ; : 
A? 3 B E MOV RY, iar ; g : 
67 1 6B F MOVW 5 3 
A? 08 BC B F MOVW ig "4R7) ; ; 
A? } 8 FA mOVW tr ; 3 : 
C BC D F MOVL ; @WCB_ADDR : 55 ; 
1 Bo 0 MOVL * RO : 3 9 : 
RET 3 3 
; Routine Size: 262 bytes, Routine Base: _SMGSCODE + ICED : 
; 5360 5591 1 !<BLF/PAGE> | : 
| 
| 


ISPLAY_LIN SMGSDISPLAY_LINKS = Virtual Display Linkages  18-Sep=1 9: AX-11 Bliss-32 v4.0 Page 155 
engse SMCSSDEALLOCATE WCB © Get rid sf te and fee bu | “3407198 99:53:25 FEM GAT Obie ze ve ON 78S. 9° (33) 28 
XSBITL "SMGSSDEALLOCATE WCB = Get rid of WCB and its butters’ 
GLOBAL ROUTINE SAGSSDEACLOCATE UCB (WCB : REF SWCB_DECL) = 
98 


| FUNCTIONAL DESCRIPTION: 


This routine deallocates space for the window control block and 
its window text and attribute buffers. 


i CALLING SEQUENCE: 
ret_status.wic.v = SMGSSCREATE_WCB ( WCB.wl.r) 
i FORMAL PARAMETERS: 


WCB.wil.r Address of the previously-created WCB. 
i IMPLICIT INPUTS: 


i IMPLICIT OUTPUTS: 


Od ad ad at ot OOO 


oO oO 


' 
' 
' 
' 
' 
' 
' 
' 
' 
' 
' 
' 
' 
contents of WCB 
' 
' 
' 
' 
' 
' 
' 
' 
' 
' 
' 
' 
! 


SS$_NORMAL Normal successful serenrcton 

L18S_xxx Errors from LIBSFRE 
i SIDE EFFECTS: 
i NONE 
"BEGIN 

CAL 
RET_STATUS, ' Status to be returned to caller 
98 STATUS; ' Status of subroutine calls 


$3 


'¢ 
' noe tagt to deallocate the space for all 4 buffers (text and attr) at 


wn 


RET_STATUS = LIBSFREE_VM ( ot * ,WCB CWCB 


BUFSIZE}), 
8B CwCB_ A. TEXT “BUF IT: 


w 


te 


: ist. to deallocate the alternate character set buffers if they 


DDD DP AEP DDD DDD DDD DPA AA PAA AAA AAA AAA AA AAA AAS 


POPU PVPVPUPUDPV PULLS SUSIE SSSI STIS II 


a -WCB CWCB_A_CHAR_SET_BUF] NEQ 0 


NBEGIN H free alt cher set butters 
! NOTE: Right now we 

i they A val Located as if. adja 
i them with a s ngle cal 


STATUS = LIBSFREE_VM ( WCB CWCB_L_BUFSIZE), 


PPE EE SS & ESS 


ree th xe oyety. If it turns out 
acen ° 


i NONE 
i COMPLETION STATUS: 
can deallocate 


Be Se Oe Oe Oe Be Se Be Oe Se Se Oe Oe Se Se Se Se Se Fe Ge Se Se Se Se Se Ge Ge Se Se Ge Se Ge Ge Se Ge Se Ge Ge Se Se Oe Se 4 Se OH Ss SH S5 Se Se ee SHES SH ee Se ee 

PUPP PPV DIPPED PUDDLE PUDVDVSULVSVSTSIISTSUSVSISISISISTSISISISIIIU UIUT 

CPEAAAALAERIPIPPIPIPIPIPIPIPINIPIPIPIPIIIIII a st st st st at st tt st st st a tt 
. *. . 


a et a a ed ed 
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SMGSDISPLAY_LIN SMGSDISPLAY_LINKS = Virtual Display Linkages 16-Sep-1984 00:29: AX-11 Blisg-32 V4.0-74 Pa 56 
1- SMOSSDEALLOCATE UCB - Get rid oF ute and its bu 1 30071382 99:69;28 SMGRTL. ReSsmgp)si in B92: 9¢ 435 28 


: $419 49 WCB CWCB_A_CHAR_SET_BUF)); 

: $421 IF NOT .STATUS THEN RET_STATUS = .STATUS ; ! Propagate an error 
: : § ? ' status 

: $404 i STATUS = LIBSFREE_VM ( WCB [WCB_L_BUFSIZE), 

: 3485 5 WCB CWCB-A-SCR_CHAR.SET_BUFJ); 

: 4 ? 6 5 IF NOT .STATUS THEN RET_STATUS = .STATUS ; ! Propagate an error 
3 ' status 

3 : 9 i END; ! Free alt char set buffers 

: 5431 + 

3; 54 § 606 ' Deallocate the Line characteristics vectors. These were allocated 

3 re roe as @ pair so can be deallocated as a pair. 

: 5435 665 STATUS = LIBSFREE_VM ( BREF ( 2 * (.WCB cuce W_NO_ROWS] + 1)), 

: ‘ 666 WCB CWCB_A_LINE_CHARJJ; 

: 54 668 IF NOT .STATUS THEN RET_STATUS = .STATUS; ! Propagate an error 

; 5439 r¢ ' status 

; 5440 670 

3; 5441 671 '+ 

3 rr ore Deallocate the WCB itself. 

: 444 674 ; STATUS = LIBSFREE_VM (ZREF(WCB_K_SIZE), WCB); 

3 rei of? IF NOT .STATUS THEN RET_STATUS = .STATUS ; ! Propagate an error status 
: ie er? RETURN (.RET_STATUS); 

3 5449 $75 END; ! Routine SMGSSDEALLOCATE_wCB 


001¢ ENTRY SMGSSDEALLOCATE_WCB, Save R2,R3,R4 ; 5593 
4 000000006 00 9 MOV LIBSEREE_VM. Ré : 
4 ¢ SUBL2 #4, SP ; 
ose Rie Hike — 
04 AE 28 = A2 ns 0 8 ASHL He, 40(R2), 4(SP) : 5634 
“ioe § ra cy po 
10 A 0¢ sit tro) - + $641 
10 A ' 101 PUSHAB  16(R2) : $64 
28 «Ad OF PUSHAB 40(Re) : 
F CALLS e L 1BSFREE_VR : 564 
; © BLB STATUS, 1$ : 5651 
MOVL TAT .. RET_STATUS : 
1 A2 OF PUSHAB 28(R > 5655 
=“ eR CALLS , {,ipBsenee vm : 38 3 
BL STATUS, 23 ~ : 56 
i ; iB MOVL STATUS. RET_STATUS ; 


SPEED ISPLAY. LIN SMOSSDEAL LOCATE - Virtual Dis lay gt inke es : 1b-5¢ $007 1384 90:43:28 amedt eit *hasoler nee 842:1 


p 7 
SMGSSDEALLOCATE WCB - Get rid of WeB and ~Sep- age 43) 
45 28: PUSHAB 44(R2) ; 
9» OR aa SHS itt 
06 AE 1 1 HL #1, RI, 4(SP) : 
04 AE ADDL2 #2. 4(§P) ; 
ms fl chits: @ sp) BSFREE_VM : 
3 BLBS § Arbo as . ; 3668 
MOVL STATUS, RET_STATUS : 
04 aC 3$: PUSHAB wce + 5674 
04 AE OV #52, 4(SP) : 
of CAS. 55°"? corecs. VM : 
i | Se te ara ~~ 
Or 4$: MOVL  RET_S ThrUg. “RO + 5677 
: RET : 5679 


; Routine Size: 120 bytes, Routine Base: _SMGSCODE + 10F3 


: 5450 5680 1 !<BLF/PAGE> 
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SPLAT Lis - Virtual Pi splay Linkages 1 mt 90: 53:28 enedt Oh legeae V4.0-74 


UPL_V 


UAL DISPLAY = Duplicate a virtual 14-Sep-1 


ZSBITL ‘SMGSSDUPL_VIRTUAL_DISPLAY = Duplicate a virtual display’ 
GLOBAL ROUTINE SMCSSDUPLCUIRTUAL DISPLAY ¢ step oe . 


NEW_BISPLAY_ID 
= 


SMGR SMGDISLIN.B52;1 


* 
FUNCTIONAL DESCRIPTION: 


This routine makes a copy of an existing virtual disp\e ° 
ass gning it a new virtual display number. The new y rtual 
will not be pasted anywhere -- even if the virtual d 
which it was created was. 


CALLING SEQUENCE: 


ret_status.wic.v = SMGSSDUPL_VIRTUAL_DISPLAY (CURR_DISPLAY_ID, 
NEW_BISPLAY_TD) 


splay from 


FORMAL PARAMETERS: 
CURR_DISPLAY_ID.rl.r ery id of virtual display to be 


replicated. 
NEW_DISPLAY_ID.wl.r Display id of newly-created virtual 
display. 
IMPLICIT INPUTS: 
NONE 
IMPLICIT OUTPUTS: 
NONE 


COMPLETION STATUS: 
SS$_NORMAL Normal successful completion 
LIBS_INSVIRMEM ingyt icient virtual memory to allocate needed 
er. 


SIDE EFFECTS: 


NONE 

BEGIN 

LOCAL 
o(B : REF S$DCB_DECL, ! Address of current DCB. 
DCB_NEW : REF $DCB_DECL, : dress e! new OCB 
STATUS; ' Status of subroutine calls 


SSMGSGET_DCB (.CURR_DISPLAY_ID, DCB); ! Get peer of DCB for current 
! display 


' 

i If @ backup pce does not yet grist allocate one. 

! Make a nae y rtual display using the sizes and attributes of the old 
! one. Quit if we can't. 


Page 15 
age 438 


re 


PPP PPAF AAA 


SMGSDISPLAY_LIN SM 
Gee -, SM 


AA 


$0 


aoa 


N 7 
PLLVIRTUAL DISPLAY = Duplicate a virtual Te-Sep-ioge fS:69:08 — ESmantieSneSsmgoy Si tn.682: 1 Pane (43) 


S 
U 
le 

IF ce COCB_A_BACKUP_DCB) EQL 0 
1 BEGIN ' Ist time, create the peckup 
1 IF NOT (STATUS = SMGSSCREATE VIR UAL _DISP AY ( 
1 4 ZREF (DCB BCB_W_NO-ROWS)), | #rows 
1 4 ZREF (.0CB COCB"W"NO-COLS3), i #cols 
1 4 .NEW_DISPLAY_ID> i new id 
1 4 ZREF~(.0CB (OCB_B_DEF_DISPLAY_ATIRJ),  ! disp 
1 4 ZREF (.0CB COCB"B-DEF-VIDEO_ATTRI), i video 
1 4 ZREF (.0CB COCB“B-DEF-CHAR_SETJ))) i alt char set 


THEN 
RETURN (.STATUS); 


SSMGSGET_DCB (.NEW_DISPLAY_ID, DCB_NEW); ! Get DCB address of new 


t+ 
Store the new display id in the new DCB. 


DCB_NEW CDCB_L_DID] = ..NEW_DISPLAY_ID; 
END ! Ist time, create the backup 
ELSE 
BEGIN ! Backup already exists 
set piSPLAY 10 = .DCB LOCB_A_BACKUP_D ii ! Return id of existing 
= e 


cB 
_REW > DCB-A_BACKUP_DCB); 
END; ! Backup already exisfs 


= 
MEWN— DONOUP I" OODNRO EUISMOD 


PUPP AIST 


ocB (oce APL IRE CHAR), 


er Svs 


-DCB_NEW COCB_A_CINE_CHAR)); 


: 4 
5 ! Now need to copy over the current text and attribute buffers from 
540 ! the current to the new. 
ree. !- 
a8 CHSMOVE ( .DCB CDCB_L_BUFSIZE) ! #bytes 
544 -0CB COCB~A-TEXT_BUF 4 i from 
345 .DCB_NEW COCB_A_TEXT_6UF)); i to 
aes CHSMOVE ( .DCB (OCB_L_BUFSIZE) ' #bytes 
48 -DCB CDCB"A-ATTR_ BUF) i from 
49 -DCB_NEW CDCB_A_ATTR_6UF)); i to 
1 '+ 
} Copy over the Line characteristics vector. 
; 4 CHSMOVE ( .DCB [DCB_W_NO ROWS) + 1, 
5 


'¢ 


i Copy over stuff relating to borders and labels. 
IF .DCB_NEW CDCB_V_BORDERED) | 
HEN | 
| 

| 


es 


BEGIN ! Bordered 
Loc 


AL 
DESC : REF BLOCK (8,BYTE); ! Pointer to dynamic string 


o 
w 


FOR 


re 


PPP TITIVIV 


03FC 00000 -ENTRY SMGSSDUPL ft | atte Save R2,R3,R4,- ; 5682 
R6,R7,R8,R9 : 


R5,R6,R7, 
59 000000006 8F D0 00002 MOVL  #SMGS/INVDIS_ID, R9 ; 


8 

SMGSDISPLAY_LIN SMGSDISPLAY_LINKS = Virtual Display Linkages ibese -1984 00:29: AX=11 Bliss-32 V4.0-74 Page 160 SMG 
in896 SMGSSDUPL VIRTUAL DISPLAY + Dust teats on svecual 1o-ge-1984 $9,09:48 — LeMGRTL SRE asMeD Si wn BS2:1 ge 335 1-0 
; 556 795 ' descriptor in DCB for border 37 
; i $786 ' Label ; 2 
; 5569 3588 DESC = DCB CDCB_Q_LABEL_DESC); a) 
3 2f0 799 3 é 
3 71 gee 1+ 3 
; 276 9] :_If label exists, make a copy. : 2 
; 5574 808 iF .DESC CDSCS$A_POINTER] NEQ 0 : 2 
; $575 $804 THEN 3 5 
; 5576 5805 4 BEGIN ! Labeled : 2! 
; 5577 2806 5 IF NOT (STATUS = LIBSSCOPY_DXDX ( .DESC : 2; 
; 5578 07 5 DCB_NEW CDCB_Q_LABEL_DESC] )) : 2 
> 3579 5808 4 THEN : 3 
; 5580 5809 4 RETURN (.STATUS); a) 
; 5581 $810 4 : 5 
: 2982 5811 4 DCB_NEW [DCB_W_LABEL_UNITS] = .DCB [DCB_W_LABEL_UNITS]; 2! 
; 558 2818 4 DCB_NEW CDCB_B_LABEL_POS) = .0CB CDCB-B-LABEL_POS); : 2 
3 5584 5813 4 DCB_NEW CDCB_B-LABEL_CHAR_SET] = .DCB (DCB~B_LABEL_CHAR SET); ; 2 
; a28? eni3 é DCB-NEW COCBIVILABEL-CENTER] = .DCB CDCB_VILABEL-CENTER); : 3 
3; 5587 5816 3 END; ' Labeled 3 2) 
: 5588 5817 END; ' Bordered :7 
; 5589 5818 3 Py 
; 5590 5819 + 3 3, 
3 229) abst § If alternate character set buffer involved, copy it over as well. : 2 
; 3895 282 2 IF .DCB_NEW CDCB_A_CHAR_SET_BUF] NEQ 0 : 2 
3; 5594 582 . THEN 3 2 
; 5595 5824 BEGIN ! ALt char set buffer involved 3 2) 
; 5596 5825 4 IF NOT (STATUS = LIBSGET_VM (DCB COCB_L_BUFSIZE), a) 
; 5597 5826 4 DCB_NEW COCB_A_CHAR_SET_BUFJ)) : 2! 
> 3398 3827 3 THEN 22 
3; 5599 5828 RETURN (.STATUS); 3 2 
; 5600 5829 32 
: 5601 5830 CHSMOVE (.DCB CDCB_L_BUFSIZE), ' Num. ; 2! 
; 560 5831 . DCB_A_CHAR_SET_BUF J ' From $2 
: 560 832 3 -DCB_NEW CDCB_A_CHAR~SET_BUF J); i To 39 
3 2008 583 s 3 
3 2603 ate END; ' Alt char set buffer involved : 

; 560 2836 '¢ 3 

3 res 5837 Also preserve the current cursor postion. : 

; ets 2835 DCB_NEW FDCB_W_ CURSOR ROW = .DCB CDCB_W_CURSOR_ROW); 3 

; 2611 $641 DCB-NEW CDCB-W-CURSOR-COL] = .0CB COCB-W-CURSOR-COLJ; : 

; 2618 see RETURN (SS$_NORMAL); : 

: 5614 5843 1 END; ! Routine SMGSSDUPL_VIRTUAL_DISPLAY : 


: 
; 
; 
5 
5 


a 
SMGSDISPLAY_LIN SMGSDISPLAY_LINKS = Virtual Display Linkages 1b-se -1984 00:29:2 AX-11 Bliss-32 V4.0-74 Page 161 SMC 
1-096 SMGS$SDUPL_VIRTUAL_DISPLAY - Duplicate a virtual 1 ~30071 382 00:89:58 SMGRTL.SRCISMGDISLIN.B 2:1 age 33) i-€ 
SF 14 C3 09 SUBL2 #20, SP ; : ¢ 
0 BC D MOVL § @CURR_DISPLAY_ID, RO : 5731 : 6 
04 BC 8 A D4 CMPL a @CURR-DISPLAY_ID : ; é 
11 44 88 91 0001 CMPB $ (RO), #17 : : 6 
04 13 O18 BEQL $ : : 6 
50 9 p0 1 1$ MOVL RO, RO : ; é 
56 04 BC DO 00021 2 MOVL § @CURR_DISPLAY_ID, DCB : : 6 
0 40 Ab 09 0025 MOVL 64 (DCB), RO + 5739 : 6 
56 12 00029 BNEQ 5 : : 6 
10 AE 30 Ab OA 90 MOVZBL 48(DCB), 16(SP) + 5748 : 6 
10 AE OF PUSHAB 16(SP) : : 6 
10 AE 2E Ab 9A 0003 MOVZBL 46(DCB), 16(SP) : 5747 : 6 
10 AE OF 00038 USHAB 19¢sP) : : 6 
10 AE 2F A6 9A 00038 MOVZBL 47(DCB), 16(SP) t 5746 : 6 
10 AE OF 90040 USHAB 16(SP) : : 6 
08 AC pp 0004 PUSHL NEW_DISPLAY_ID + 5745 : 6 
146 AE 06 Ab 3C 00046 MOVZWL 6(DTB), 20(SP) : 5744 : 6 
14 AE 9F 00048 PUSHAB 20(SP) : : 6 
16 AE 02 AB 3C OO4E MOVZWL 2(DCB), 20(SP) : 5743 : 6 
14 AE 9F 0005 USHAB 20(SP) : : 6 
FCD7? sCF 06 FB 00056 CALLS #6, SMGS$CREATE_VIRTUAL_DISPLAY : : 6 
58 50 DO 00058 MOVL RO, STATUS : : 6 
5D 58 £9 0005E BLBC STATUS, 7$ + 5742 : 6 
50 08 BC DO 00061 MOVL § @NEW_DISPLAY_ID, RO : 5752 : 6 
08 BC 38 AO D1 00065 CMPL 6(RO), a@NEW-DISPLAY_ID : : 6 
06 12 0006A BNE a : : 6 
11 44 AO 91 0006C CMPB = 6B(RO), #17 : : 6 
04 13 00070 BEQL © 4$ : : 6 
50 59 00 00072 3$: MOVL  R9, RO : : 6 
04 0007 RET : : 6 
57 08 BC DO 00076 4s: MOVL § @NEW_DISPLAY_ID, DCB_NEW : : 6 
38 «OA? 08 BC DO O007A MOVL § @NEW-DISPLAYID. 56(BCB_NEW) : $757 > 6 
07 11 0007F BRB 6$ : 5739 : 6 
08 BC 50 D0 90081 5$: MOVL RO, @NEW_DISPLAY_ID : 5763 
57 50 DO 00085 MOVL RO, DCB_REW : 5764 
10 87 10 86 3c 00088 6$: moves 60(DCB)> @16(DCB), @16(DCB_NEW) : 5774 
16 B87 14 B6 3¢ Ab OO8F MOVCS 60(DCB). a20(DCB). a20(DCB-NEW) : 5778 
50 02 a6 3C 00096 MOVZWL 2(DCB), RO : 5783 
50 06 009A INCL R : 
4C 87 4C 86 5 009¢ MOVC3 RO, @76(DCB), @76(DCB_NEW) : 5785 
1 or OA 9 OOA2 BLBC.  47(DCB_NEW), 8$ : 5790 
50 08 A 0 A6 MOVAB 8(R6), DESC : 2798 
4 Ad D AA TSTL ©. & (DES €) : 580 
28 13 OOOAD BEQL 8s : 
08 A? 9F OOOAF PUSHAB 8(DCB_NEW) : 5807 
50 DD Be PUSHL DESC : 
000000006 00 F B CALLS #2, LIBSSCOPY_DXDX ; 
58 D OBB MOVL RO, STATUS : 
Hs E BE 7$: BLBC STATUS, 9$ : 
2c A 2c AG 80 C MOVW 44(DCBS, 44(DCB_NEW) > 5811 
1 A? 1 Ab B C6 MOVW  49(DCB), 49(DCB"NEW) : 5812 
50 34 AG 1 9 EF CB EXTZV. #2, #1, 52 (DCB) RO : 5814 
34 OA? 01 2 f D INSV = RO, #2, #1, 52(6CB_NEW) ; 
18 OA p D7 8$: TSTL é (DCB NEWS ; 5822 
1E OODA BEQL 1$ : 


MGSDISPLAY_LIN SMGSDISPLAY_LINKS = Virtual Display Linkages base Sep-1984 AX-11 Bliss-32 V4.0-74 Page 162 
itr ~~" SMGSSDUPL_VIRTUAL_ 1SPLAY - aye a virtual : 300-1382 9: 89; 8 SMGRTL. SRC Shep {si wn 69251 . (39 
18 a7 : pc PUSHAB 24(DCB_NEW) : 58 ° 
C | DF PUSHAB 60(DCBY ; 58 
000000006 0 Eg CALL , LIBSGET_VM : 5826 
E MOVL is Vis : 
4 EC BLBS er a0; : 
0 EF 9$ OVL STATUS, R : 5828 
18 87 18 8 3 A r§ 10$:  MOvCc3 60¢0¢B), 9 @24(DCB), @24(DCB_NEW) : 5832 
28 OA A FA 11$: MOVE  40(DCB). 40(DCB_NEw) : 5839 
50 0 bor MOVL , RO ; 384¢ 
4 0102 RET : 584 


; Routine Size: 259 bytes, Routine Base: _SMGSCODE + 1E6B 


; 5615 5844 1 !<BLF/PAGE> 


Pi ma =a 


8 
SMGSDISPLAY_LIN SMGSDISPLAY_LINKS = Virtual Display Linkages 16-Sep-1984 90: 53:28 AX-11 Bliss-32 V4.0-74 Page 193 
1 SMGSSLOCATE_PP = Locate Pasting packet for give 14-Sep-1984 13:09: SMGRTL.SRCJSMGDISLIN.B852;1 (34) 
; 5617 45 1 XSBTTL Bot ate ge tet PP = Locate Pasting peckes for piven display and pasteboard' 
: 218 rk 1 GLOBAL ROUTINE SMGSSLOCATE_PP ( DCB: REF $0CB_DECL, 
; 361 47 1 PBCB : REF $PBCB_DECL, 
; 5620 4 1 PP ) = 
: 5621 rk 1 !+4 
3 ? § st : ; FUNCTIONAL DESCRIPTION: 
: 5604 § ii Locate the address of the pasting packet that joins this 
3 ? 5 27 ; virtual display to this pasteboard. 
; 6 ? 33] ' CALLING SEQUENCE: 
; ee g 28 ii ret_status.wic.v = SMGSSLOCATE_PP ( DCB.rab.r, 
3; 56 528 1! PBCB.rab.r, 
3 ee 1 2823 : PP.wl.r) 
; se : 2861} | FORMAL PARAMETERS: 
: 22 5 S88 : DCB.rab.r Address of a virtual display control block. 
: S037 Hee : } PBCB.rab.r Address of a pasteboard control block. : 
: 5639 HY] 1/ PP.wi.r Return address of the pasting packet that ; 
; 3640 5868 1! represents the pasting of the given virtual : 
; seb enSp ; display to the given pasteboard control block. : 
; S648 871 | IMPLICIT INPUTS: : 
ep a] 
; th, 5875 1 | IMPLICIT OUTPUTS: 
$ eeee e576 .% 
me ado 
; 3651 2879 i COMPLETION STATUS: 
: Ae 53881 1 | SS$_NORMAL Normal successful completion 
3 te: oee6 : SMGS_NOTPASTED Given display is not pasted to given pasteboard 
: 68 4 1 | SIDE EFFECTS: § 
3 82 ee R 
3885 Bay i NONE f 
; 5660 ; ; "BEGIN 5 
: 5661 LOCAL " 
3 66¢ 5890 SEARCH_DCB : REF $DLB_DECL, ' Addr of the DCB we'll actually C 
3 S664 a3) ' search for 
; 5665 38 CURR_PP : REF $PP_DECL; ! Addr of pasting packet being 
3 666 3 ! inspected. 
: 5668 % CURR_PP = .DCB CDCB_A_PP_NEXT); ! Start with Ist PP in chain 
: 3696 38 St 
: 5671 39 i If the virtual display is currently batched, the batch level will be non-zero. 
5 2076 : ! This means a match needs to be found on the backup DCB address instead of the 
3; 567 901 ! DCB address. 


F 8 
SMGSDISPLAY_LIN SMGSDISPLAY_LINKS = Virtual Display Linkages 16-Sep-1984 00:29: AX-11 Bliss-32 V4.0-74 Page 164 
e856 SMGSSLOCATE_PP = Locate Pasting packet for give 1 ~300n 138% 99:59:28 SMGRTL SRE ISMGD ISL IN B92: 1 ° 38} 
: 5674 9 ¢ = 
3 of? 2 ? SEARCH_DCB = .DCB; 
; of 2 5 IF ,bce CDOCB_L_BATCH_LEVEL] NEQ 0 ! Currently batched 
; 567 9 5 SEARCH_DCB = .DCB CDCB_A_BACKUP_DCB); 
; ret 908 
; 5681 909 
; 568 910 
; 568 231) 
: 5684 aig BEGIN ! Search for packet with matching PBCB addr 
; 5685 91 IF .CURR_PP [Peace ADDR} EQL .SEARCH_DCB = AND 
3 208 a -CURR_PP [PP_A_PBCB_ADDR] EQL .PBCB 
3 2eg8 218 4 ! Desired packet found 
; 5689 917 4 PP = .CURR_PP; 
; 5690 2918 4 RETURN (SS$"NORMAL) ; ! Return success 
3 203) 444 END; ! Desired packet found 
; 2698 33 1 CURR_PP = .CURR_PP CPP_A_NEXT_DCB]; ! Otherwise step along DCB 
> 5694 9 ¢ ! side of chain 
; 5695 59 END; ! Search for packet with matching PBCB addr 
; 5696 5924 
; 5697 5925 '¢ 
; 5698 5926 ! If we fall out of the while loop, this virtual display is not pasted 
3 2898 29 : to the specified pasteboard -- according to the pasting packets. 
: 5701 5929 PP = 0; ! To reduce Liklihood someone will try to use it 
3 AY 5930 ! and disregard status. 
3 378 5931 RETURN (SMG$_NOTPASTED); ' Return failure 
; 5704 5932 1 END; ! Routine SMGSSLOCATE_PP 


000 -ENTRY SMGSSLOCATE_PP, Save R2,R3 ; 5846 
0 94 AC D MOVL : 5896 
1 0 ad D MOVL (RO), CURR_PP ; 
3 50 0 MOVL R SEARCH DCB : $903 
1c AO OD TSTL (rd) : 590 
4 Yt ; Rove 4(RO), SEARCH_DCB : 5907 
32 2 40 8 1$ MOVAB $5 (RO) ° 8 - : 5910 
51 D CMPL RR_PP, R2 ; 
1A 1 BEQL : 
53 10 al p cRPL (CURR_PP), SEARCH_DCB ; 5913 
08 Ac % Al CMPL O(CURR_PP), PBCB : 5914 
0c i D Bove «EURR_PP, aPP : 5917 
8 1 B60 ROVL a RO * : 918 
51 61 ot 2%: MOVL (CURR PP), CURR_PP : $921 
DD BRB 1 : 59 9 
oc BC D4 9 3% CLRL = @PP : 59 
50 000000006 8F DO MOVL § #SMGS_NOTPASTED, RO : $931 


| 
| 
+ a -CURR_PP NEQ DCB CDCB_A_PP_NEXT] ! While any remain 
| 


PRRISPOT LI SER PARE HME, ASCTPR DUSPLADLIMOHM i HECEESTORE SUSE MGA SLAENGSTECGZAR1 


04 00043 RET ; 5932 
; Routine Size: 68 bytes. Routine Base: _SMGSCODE + 1F6E 


; 5705 5933 1 !<BLF/PAGE> 
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SDISPLAY_LIN SMGSDISPLAY_LINKS = Virtual Display Linkages 16-Sep-1984 00:29: AX-11 Bliss-32 V4.0-74 Page 166. 
wit 5 SMGSSPAS  WIRTUAL DISPLAY - Paste v rtual disp 107888-1 382 99:53:28 USMGRTL-SRe SMGDISLI "882; . 335 


: a4 934 1 ZSBITL ‘SMGSSPASTE YIRTUAL DISPLAY = Paste virtual display to pasteboard' 
; 57 935 1 GLOBAL ROUTINE SMGSSPASTE_VIRTUAL_DISPLAY ( 

; 57 9 1 DCB : REF $DCB_DECL 

; £10 937 1 PBCB.: REF $PBCB_DECL, 

; 571 9 8 1 PASTEBOARD_ROW, 

: t1¢ 3 1 PASTEBOARD_COL 

Bit 5 ae re He 

: $215 94g 1 | FUNCTIONAL DESCRIPTION: | 
; HS 944 1! The specified virtual display is pasted" (oriented 

: rg 945 1! with respect to) a pestesoory. This makes che display visible. 

; 571 3e8 1! This is the inner paste routine. It assumes input parameters 

: 5720 947 1! are ett present and valid. Further assumes that display 

: 5721 re 1! specified by DCB is not already pasted to pasteboard specified 

3 f § sh ' by PBCB. 

: , 4 991 CALLING SEQUENCE: 

: 57 $ 388 1! ret_status.wic.v = SMGSSPASTE_VIRTUAL_DISPLAY ( 

; 57 954 1! DCB.rab.r, 

: sf 8 Yoo 1 f PBCB.rab.r, 

: 5729 328 1! PASTEBOARD_ROW.ril.r 

; $f 9 937 1 : PASTEBOARD~COL.rl.rd 

; , ‘ 959 } FORMAL PARAMETERS: 

: $f : +d : DCB. rab.r Address of virtual display to be pasted. 
; ey 968 1 PBCB.rab.r Address of the pasteboard on 

; ¢ he ! which the pasting is to take place. 

; 3} 9 sree 1 i PASTEBOARD_ROW.ri.r Row on pasteboard which is to contain 

3 gre hat : row 1 of the specified virtual display. 

; sre 3969 1! PASTEBOARD_COL.rl.r Column on pasteboard which is to contain 
: 574 5970 1! column 1 of the specified virtual 

: ie 4a ! display. 

: 246 398 1 | IMPLICIT INPUTS: 

: Te 974 1! 

: 3008 3 1 i a 

: , 9 3 IMPLICIT OUTPUTS: 

: 57 399 1! None 

: 57 : 980 1! | 
3 i 3 $81 ' : COMPLETION STATUS: 

; 736 3 : i SS$_NORMAL Normal successful completion | 
Py : 
3 736 5 ' SIDE EFFECTS: 

i oe oe phe 

> 576 9 $ g "BEGIN 

; 576 LOCAL 


re 


SS 


ulate the transformation constants needed to copy this display's 
ers into the associated window's buffers. 


c 

f 

’ NOT ( STATUS = SMGSSCALC_PASTE_TRANSF (.PP)) 
RETURN (.STATUS); 


a et 


'¢ 
: If pasteboard batching enabled, quit here. 
If .PBCB CPBCB_L_BATCH_LEVEL) NEQ 0 


} 

8 
SDISPLAY_LIN SMGSDISPLAY_LINKS = Virtual Display Linkages tb-se -1984 00:29: AX-11 Bliss-32 V4.0-74 P 167 

in88e SMCSSPASTC VIRTUAL DISPLAY - penta’ vircus disp 1 ~300n 138% 99:59:28 SMGRTL. RCISMGDISLIN.B 2;1 age 167) 

3764 31 STATUS, ! Status of subroutine calls 

: 5? 9 PP : REF $PP_DECL, ' addr of the pasting packet 

3 rey iy: ‘2 ! being created. hg 

3 | 

3 788 $3 wCB : REF SWCB_DECL; ! Addr. of window control block 

Py | 

3; 5771 99 '+ 

: ure 2238 } Get space for pasting packet. | 

: 5774 6001 3 —sIF_NOT (STATUS = LIBSGET_VM ( ZREF (PP_K_SIZE), PP)) 

:; 5775 6 oe THEN 

3 re 6 RETURN (.STATUS); 

; 577 6004 

: a4 ORR? CHSFILL (0, PP_K_SIZE, .PP); ! Clear all fields to default 0 | 

: 57 600 14 

; f 1 ee Initialize pasting packet | 

: 57 ; 6010 PP CPP_A_DCB_ADDR]_ = .DCB; | 

; 57 6011 PP [PP"A-PBCB_ADDR) = .PBCB; 

; 27 5 6016 PP CPP"W"ROW = ..PASTEBOARD_ROW; 

3; 57 601 PP LPP_W_COL = ..PASTEBOARD_COL; 

3 4 34 6014 

3 37 6015 1* 

: re ents } Plug this packet onto both queues. 

: 791 ong ; SSMGSINSERT_AT_HEAD ( PP CPP_A_NEXT_DCBJ, DCB CDCB_A_PP_NEXT]); 

; 19¢ 6019 SSMGSINSERT_AT_HEAD ( PP CPPTA-NEXT~PBCBI, PBCB CPBCB-A_PP_NEXT)); 

: 5794 6021 2 !+ 

; $795 60 § ! If the display is batched, we want the backpointer in the PP to be 

; 196 60 i pointing to our backup DCB. 

; 579 6024 !- 

; 5798 6025 IF .DCB COCB_L_BATCH_LEVEL] NEQ 0 

3; 5799 60 $ THEN 

; 800 69 |! PP CPP_A_DCB_ADDR] = .DCB COCB_A_BACKUP_DCB); 

; 60 ‘+ 

3 : o8 ? : Recalc. occlusions introduced by this new pasting. ' 

; 5 ; IF NOT ( STATUS = SMGSSCHECK_OCCLUSION_FIRST ( .PBCB)) 

; 4 RETURN (. STATUS); 
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60 END; 


'¢ 

: Else just return Batch-was-On status. 
RETURN ( SMG$_BATWAS_ON); 
END; 


SESSToRSS 
SOoooon 
SRANLS 


! Routine 


O0FC 00000 


Foe RE SF 00008 


SMGSSPASTE_VIRTUAL_DISPLAY 


ENTRY SNGSSPASTE VIRTUAL DISPLAY, Save R2,R3,R4,- 
R5,R6,R 

SUBL2 #8. SP 

PUSHAB PP 


H 1 604 THEN 3 
: § é RETURN ( SMG$_BATWAS_ON); : 
; 1+ : 
3 5 6 § ! Force physical display's cursor to be where this virtual display's ; 
; $ 6 ' cursor is. 3 
3 6 ¢ ; Chose between current DCB and backup DCB. : 
: 9 é § WCB = .PBCB CPBCB_A_wWCB); : 
3 1 3 If gbce COCB_L_BATCH_LEVEL) EQL 0 : 
3 5 6 BEGIN ! Get from current DCB ; 
; 6061 WCB CWCB_W_CURR_CUR_ROW) = .DCB FOCB_u_CURSOR_ ROW - 1+ .PP CPP_W_ROW]; ; 
: 5 rena) WCB LWCB_W CURR_CUR_COLJ = .DCB LDOCB_W_CURSOR_COLJ - 1 + .PP CPP_W_COLJ; ; 
; 58 606 EN T Get from Current DCB 3 
; 58 6064 $ 
3 : 6065 ELSE 3 
; 9 606 3 
3 art 606 BEGIN ! Get from backup DCB 3 
3 Hy 1 606 LOCAL 3 
: acs ps} BACK_DCB : REF SDCB_DECL; ! Addr of backup DCB ; 
: ; 4 6071 BACK_DCB = .DCB CDCB_A_BACKUP_DCB); 

; 5845 607 WCB [WCB_W_CURR_CUR_ROQ) = .BACK_DCB CDCB_W_CURSOR_ROW] - 1 + .PP CPP_W_ROW); 

3 Bee 607 WCB (WCB _W.CURR_CUR COLJ = .BACK_OCB LDOCB_W_CURSOR_COLJ - 1 + .PP CPP_W_COLJ; 

; Bs 6074 END; T Get from Backup DCB 

3 8 6075 

; eh 6 6 '¢ 

; 5850 607 ! Move stuff from virtual display to pasteboard buffer and caused it 

; $23 pet to be output if pasteboard is not batched. 

; 3g 60 If .PBCB CPBCB_L_BATCH_LEVEL) EQL 0 

3 6081 THEN 

3 5 60 § BEGIN 

3 $ 60 PBCB CPBCB_W_FIRST_CHANGED_ROW) = 1; 

; 585 60 PBCB LPBCB_W_LAST GED ROW) = .PBCB CPBCB_B_ROWS); 

; 3 38 60 5 PBCB [PBCB-W-FIRST_CHANGED col] = i; 

: 5 6 PBCB CPBCB-W-LAST_CHANGED COL] = .PBCB CPBCB_W_WIDTH); 

; 60 RETURN (SMGSSFILL- WINDOW BUFFER (.PP)); 


a 


k 8 
SDISPLAY_LIN SMGSDISPLAY_LINKS = Virtual Display Linkages 16-Sep-1984 00:29: AX-11 Bliss-32 V4.0-74 P 9 
wth SMCSSPASTE VIRTUAL DISPLAY = Pacte virtue disp Ikesepelone $eibo.es «| Lemont Obhessae ve ON 7k8 age 185 
rae og Be BP 89808 at tT Sl : 
000000006 9 5 F CALLS ae LIBSGET_VM : 
D § MOVL R STATUS : 
3 o Ae 6 Han stArus. ? 6005 
37 00 bE 06 Be 6 mMOVCS #0, (SP), #0, #55, (R6) : 
19 Ab 6 AC ? 4 MOVQ DCB, 16(R6) + 601 
18 A6 ¢ BC B MOVW a@PASTEBOARD_ROW, 24(R6) > 601 
1A 6 8 MOVW @PASTEBOARD“COL, 26(R6) : 601 
50 04 A § ADDL3) # + 6018 
g 4 RE DO UMsGUE ROS AOD 6019 
08 BC 8 A INSQUE 8(RO), @PBCB : 
4 ac Dd MOVL R2 + 6025 
¢ a : TSTL (R2) : 
0 BEQL $ 3 
5 06 AE D MOVL PP, RO ; 6027 
10 A 40 Ad D MOVL  64(R2), 16(RO) : 
5 08 ac D MOVL CB, R3 > 6032 
53 OD PUSHL : 
FA33 cf rus CALLS #1, SMGSSCHECK_OCCLUSION_FIRST : 
7 9 D MOVL RO. STATUS ; 
de E BLBC STATUS, 2$ : 
04 AE DD PUSHL PP + 6040 
F649 CF F CALLS #1, SMGSSCALC_PASTE_TRANSF : 
7 D MOVL RO. STATUS F 
4 E BLBS STATUS, 3$ : 
0 7 BO ROVL STATUS, RO + 6042 
56 00a4 «3 COD MOVL  164(R3), R6 + 6047 
§ 1 BNEQ 3 
1 8 aA’ D MOVL (R3), WCB + 6056 
5 4 AE D MOVL PP, RS + 6061 
4 6 AE D MOVL PP ; 6062 
C TSTL 28¢R2) > 605 
2 BNEQ 4$ : 
3 28 A MOVZWL 40(R2), R > 6061 
A CVTWL ©. 24(R5). R : 
3 C ADDL? =R7, R ; 
20 al 1 SUBWS «6s #1, RO, 32(WCB) ; 
2A Ae MOVZ7WL 4 ine), R + 6062 
A oA CvT 26(R4). R ; 
9 C ADDL? = RO, Re ; 
22. al A SUBWS «= #1, R2, 34(WCB) ; 
& 11 00 BRB $ : 6058 
40 A ROVI (R2), BACK OCB + 6071 
é A ( MOV2WL O(BACK DC TR : 6072 
A CvT 24(R5),°R ; 
3 c ¢ ADDL? = R7, Re : 
20 Al 1 I SUBWS «6s #1. R2, 32¢WCB) : 
2A A MOVZ2WL 4 teack cB). RO + 6073 
A A CvT 26(R4),"R ; 
22. al of fk suBU | e RB 34 (WCB) ; 
6 D RR * Sa + 6080 


31 1 DB BNEQ 6 
AaB oC 8 D MOVW of 8(R3) 
AA SFO‘ mMOV7BW 95(R3), 1 O(R3) 

AC 0 MOVW Of BCR 

AE 5A 4 MOVW  90(R3), 174(R3) 

4 AE DD PUSH P 
000000006 00 0 FB Fé CALL #1, SMGSSFILL_WINDOW BUFFER 
50 000000006 8F B60 a 6$: MOVE #SMG$_BATWAS_ON, RO 


; Routine Size: 262 bytes, Routine Base: _SMGSCODE + 1FB2 


; 5869 6096 1 !<BLF/PAGE> 
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MGSDISPLAY_LIN SMGBDISPLAY LINKS = Virtual Display Linkages Sep-1984 00:29: AX=11 Bliss-32 V4.0-74 Page 171 

emgse GSSRECALCTPP_FIELDS ~ Recale. Pasting Packet 16-00-1984 99:63:28 = HaNGat Ose Sshep yee fn coe. 1 oe 3) ine 
9 XSBTTL ‘SMGSSRECAL Lg PP FIELDS = Recalc. Pasting Packet fields’ 
98 1 GLOBAL ROUTINE SMGSSRECALC_PP_FIELDS ( 


, DCB : REF SDCB_DECL 
= 


FUNCTIONAL DESCRIPTION: 

i Neb cous ene Ff recalculates fields in the pasting packet that 
nee ch 

It wats the chain of gestine packets associated with the 
given Display Control Block, updating each. 


i CALLING SEQUENCE: 


SNS 
See WRI OOOO 


ret_status.wic.v = SMGSSRECALC_PP_FIELDS ( DCB.rab.r ) 

1 ! FORMAL PARAMETERS: 
24 DCB.rab.r Address of a virtual display control block. 
4 : IMPLICIT INPUTS: 

1 


02. 0000 
BES 


i IMPLICIT OUTPUTS: 
i None 
i COMPLETION STATUS: 


90000 
SSF 
oo 
Ol ed a ad ad dd dd OOOO 


' 
' 
' 
' 
' 
' 
' 
' 
' 
‘ 
' 
' 
‘ 
' 
' 
None 
' 
' 
' 
' 
' 
' 
' 
' 
' 
' 
' 
' 
' 
' 


PEPE AAAAAAA AAA AAAAAAAAAAAAAAAA AAA AAA AAA APA AAPAAIA AA AAAS O AO 


899 
900 
901 SS$_NORMAL mal successful sonst et ten 
30¢ ae Sa be "SMGSSCHECK OCCLUSION and 
30° SMGSSCALC_PASTE_TRANF 
905 i SIDE EFFECTS: 
S i NONE 
1 
319 1 LOCAL 
91 1 P : REF SPP_DECL; ! Addr. of a pasting packet 
318 139 5 1 
Bie 139 _Step through all associated pasting packets, updating each. 
91 14 PP = .DCB CDCB_A_PP_NEXT]; € Ist ket in DCB-oriented chain 
319 128 WHILE .PP NEQ BCB CBCB_A_ Pp welt j t Chile any peneta. ce 
319 123 PO BEGIN 
9 14 
921 123 STATUS, ' Status of subroutine calls 
; § 168 PBCB : REF S$PBCB_DECL; ! Addr of pasteboard control blk 
: 3 : ? Pace = .PP (PP_A_PBCB_ADDR); 
, $ : § "calculate who occludes who in current pasting chain. 


RETURN ( SS$_NORMAL); 
END; 


$ = Virtual Displa Links es $ep-1984 00:29: AX-11 Bliss-32 V4.0-74 
IELDS = Reca a 4 ting Packet if: sep-1984 99:59:28 SMGRTL.SRC smep tsi IN 89231 
I 

T 


OT (STATUS =SMGSSCHECK_OCCLUSION ( .PBCB)) ! Recalc. occlusion 
RETURN (.STATUS); 


soaetns arteenlereteartett it pazariiea Sieger 

!e 

if NOT ( STATUS = SMGSSCALC_PASTE_TRANSF ( .PP)) ! Clean up packet 
RETURN (.STATUS); 

Ae -PP CPP_A_NEXT_DCB); ! Step to next packet 


! Routine SMGSSRECALC_PP_FIELDS 


Pa UF oe PP_FIELDS, Save R2,R3 


WAN 
MmNrO 
= 
> 
oO 
So 
oo 
oom 


MOVL sing): & 

MOVAB Re. R 

eat (PP), PBCB 

CALLS Sth Meas \aeierthenenene 


Pr 
CALL SMGS$CALC PASTE_TRANSF 
BLBC H tay 

MO US 5 


-omn"omMm"OoOo—-o 


—Cowo odo 


MOVL #1, RO 


Routine Base: _SMGSCODE + 2088 


1 !<BLF/PAGE> 


-—n 
a2 


. 
o 
7 
° 
- 
o 
. 
. 
7 
2 
° 
eo 
. 
. 
. 
. 
. 
oO 
: 
o 
. 
e 
. 
. 
. 
o 
7 
. 
7 
a 
7 
o 
. 
* 
7 
~ 
. 
° 
. 
o 
+ 
o 
7 
. 
. 
a 
. 
. 
o 
© 
. 


9 


SDISPLAY_LIN SMGSDISPLAY_LINKS = Virtual Display Linkages 16-Sep-1984 00:29: AX-11 Bliss-32 V4.0-74 Page 173 
wt SMGSSUNPASTE_VIRTUAL_DISPLAY - Enpaste viftual 1 ~3ep-19 4 99:59:28 SMGRTL.SRCJSMGDISLIN.B32;1 ° (37) 
: 5947 1 1 ZSBTTL ‘SMGSSUNPASTE VIRTUAL_DISPLAY = Unpaste virtual display from pasteboard’ 
: $94 S178 1 REBBAL ROUTING SMOSEONEAS TE DGATURG DISHCRY'S tgs ° 

; 594 6174 1 DCB : REF $DCB_DECL, 

; 59 6175 1 PBCB : REF $PBCB_DECL 
Bh BB de Ks 

; 4 § ei78 FUNCTIONAL DESCRIPTION: 

: 5955 6180 1! The specified virtual display is ‘‘unpasted’’ from a pasteboard 

3 328 6181 1! if a pasting packet can be found. 

; 595 61 ¢ 1! This is the inner-most unpasting routine. It assumes both 

3 328 9i5 1! parameters ere present and thas fhey are valid (not necessarily 
3 S25 ol ge } that the pasting packet which joins these two exists). 

; 2961 6186 1 | CALLING SEQUENCE: 

: 5968 oiss 1 ret_status.wlc.v = SMGSSUNPASTE_VIRTUAL ee ( 

3 -rab.r, 

3 ager oi ! PBCB.rab.r) 

; 5967 619¢ | FORMAL PARAMETERS: 

: 5969 6194 1! DCB.rab.r Address of DCB of virtual display to be 
3 eda oi? } upyasted. 

: 2378 $199 1 i PBCB.rab.r Address of the pasteboard from 

3 a0h7 o138 : which the unpasting is to take place. 

: 5975 6200 1 | IMPLICIT INPUTS: 

BR BRT on 

: 5978 6203 1: 

3; 5979 6206 1 ! IMPLICIT OUTPUTS: 

; 5980 6205 1! 

BE RB LL tone 

; 3988 6 08 i COMPLETION STATUS: 

; 2983 6210 1! SS$_NORMAL Normal successful completion 

; 5986 6211 1! SMGS_NOTPASTED Specified virtual display is not currently 

; tf ? \¢ ' pasted to the specified pasteboard. 

: 5989 6214 1 | SIDE EFFECTS: 

; 5990 6215 1! 

io ae 

Ss BiB 3 peas 

; 5995 6220 STATUS, ' Status of subroutine cal! 

5 44 | 6221 PP : REF SPP_DECL; ! Addr of pasting packet being 
; 599 6 ¢ ! inspected. 

me OEE, 

: 6 6225 i ivy to find the pasting packet joining this DCB and PBCB. 

; 6001 6 $ ' Exit with SMGS_NOTPASTED if we can't. 

$508 $558 5 


us 


De Be Oe Bee Oe Be Be Be Oe Oe Se Se Se Oe Be Se oe See Se Se Se Bete Pe Ge Ge Se ee FH Se Se Se Se Se Ge Se Se Se Se ee Se Se Se ee SHS Se ee Se SHS Se ee Se ee 


CN ee SS eee ed 


i796 


9 
ISPLAY_LIN SMGSDISPLAY LINKS = Virtual Display Linkages 16-3 “1984 00:29: AX-11 Bliss-32 v4.0-76 
Enpaste virtual 1e-sep-1986 49:69:48 TusSREdSmGD1SLIN.682;1 


SMGSSUNPASTE_VIRTUAL_DISPLAY = Unpaste virtual -Sep-1984 
ft wot (STATUS = SMGSSLOCATE_PP ( .DCB, .PBCB, PP)) 
RETURN (.STATUS); ! No common pasting packet exists 


SMGR SMGDIS 


4 
Located desired packet. Remove it from both queues. 


SSMGSREMOVE_FROM_QUEUE ( PP [PP_A_NEXT_DCB]_); 
SSMGSREMOVE_FROM_QUEUE ( PP [PPTA"NEXT~PBCB) J; 


1+ 
Give back the pasting packet space 


i IF NOT (STATUS = LIBSFREE_VM ( ZREF(PP_K SIZE), PP)) 
RETURN (.STATUS); 


pasted to this pasteboard, we need 


1+ 
! If other virtual displays are still 
its since they may have changed by 


' to recalculate their occlusion b 
} removing this virtual display. 


ae pees [ PBCB_A_PP_NEXT] NEQ PBCB C PBCB_A_PP_NEXT] 
IF NOT ( STATUS = SMGSSCHECK_OCCLUSION ( .PBCB )) 


PAAAAAAAAAAAAAAAAAAAAAAAAOS 


PARQ AAA Ns BB BB EE AAA AAAI 
WN O OCONAUNE WN ("OOD NAUE WN —"OOOVNOUNE WN O0 


6 RETURN (. STATUS); 
62 ‘+ 
s Cause pasteboard to reflect this change. 
6 
62 RETURN ( SMG$SCHECK_FOR_OUTPUT_PBCB ( .PBCB )); 
6263 1 END; ! Routine SMGSSUNPASTE_VIRTUAL_DISPLAY 
0004 00000 .ENTRY SMGSSUNPASTE_VIRTUAL_DISPLAY, Save R2 
5E 08 C2 90002 SUBL2 #8, SP 
04 AE 9F 0000 PUSHAB PP 
7E 04 at 7D 9908 mova CB, -(SP) 
FE71 F FB 00¢ CALLS #3, SMGSS$LOCATE_PP 
C 0 : 0011 BLBC STATUS, 2$ 
1 04 BE F 0014 REMOUE app, FOO 
51 06 A 1 00018 ADDL3 #8, PP, R1 
5 61 OF 0001 REMQUE (R1), FOO 
04 AE 9F 000 USHAB PP 
04 AE 3 pO VL #55, 4(SP) 
06 AE OF PUSHAB 4(SP) 
000000006 00 g FB A CALLS #2, LIBSFREE_VM 
1¢ 7 1 BLBC STATUS, 
08 AC 08 BC ODI CMPL § aPBCB, PBCB 
B 13 9 BEQL ~=s«1$ 
08 AC dD 00038 PUSHL  PBCB 
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FAGSDISPLAY LIN Fd y thom ct ae Virtual pig ot Linkeges 1Bese sep- 138% 0: §3: Fat AX-11 Bliss-32 V4.0 Pour, I8 


UNPASTE_V RTUAL DISPLAY - Unpaste virtual 14-Sep-1 SMGRTL.SRCISMGDISLIN. if 2;1 
F82C F 1 CALLS SMGSS$CHECK_OCCLUSION : 
SA 8 3 O94 BLBC STATUS” 5 * ; 
08 AC 46 18: PUSHL 3 6261 
000000006 00 01 PB 04 CALLS #1, SMGSSCHECK_FOR_OUTPUT_PBCB : 
04 00050 2$: RET ; 6263 


; Routine Size: 81 bytes, Routine Base: _SMGSCODE + 20EC 


; 6039 6264 1 !<BLF/PAGE> 
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ISPLAY_LIN SAGs ISPLAY_LINKS = ual Display Linkages bese Sep-1984 00:29: AX-11 Bliss-32 V4.0-7 Page 176 SMG 
$ngse MCSSUNPASTE _VIRTUA i‘ PLAY - reaste virtual 12-80 8= 1 oe 90:89:08 SMGRTL.SRC SMGDISLIN. 4 2;1 ge 35 1-0 
: £04, e568 ! END ! End of module SMGSDISPLAY_LINKS : 

6 : gsee 0 ELUDOM 
~EXTRN LIBSSIGNAL 
; PSECT SUMMARY 
; Name Bytes Attributes 
: _SMGSDATA 80 NOVEC, WRT, RD ,NOEXE,NOSHR, LCL, REL, CON, PICALIGN(2) 
; _SMGSCODE 85 NOVEC, *NOWRT. RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(2) 
: Library Statistics 
3 qusesses SyEbel§ seccenss Pages Processing 
3 File Total Loaded Percent Mapped Time 
: _$255$DUA : ESYSLIBISTARLET 1 32:1 9776 101 1 581 0:00.9 
;  $255SDUA GRTL.OB se ae 36 8 g § Q: 08} 
$ $255SDUA TESMCRTL: OB) SMGL1IB.L32;1 469 15 3 3 0:00.4 
; COMMAND QUALIFIERS 
; FLESCH OCT FOLD. SUE TEAL .SPTERELE /DTRALE AL 20, 590s SHED. LAER SCR IS INOO TIM MSRC$:SMGDISLIN/UPDATE=(ENH$:SMGDISLIN 
Size: 8471 coge + 118 data bytes 
Run Time: 745.3 
Elapsed Time: :00.6 


Lines/CPU Min: 

Lexemes/CPU-Min: 20556 
Memor vv Used: 435 pages 
Compilation Complete 
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